Question

VBA 多维数组赋值给多维数组和Function多维数组赋值

现在遇到问题:
1.我有一个多维动态数组ckarr(1 To 16, 5 To E),已经在里面赋值了.
现在有另一个动态数组ckarr1,我也按上面的E定义一样大小,
但赋值有问题,我的语句:
ckarr1() = ckarr()
但运行后提示下标越界,我想问下 多维数组赋值应该怎么赋值才对而且方便,谢谢!

2.我定义了一个
Function downbom(ByVal firname As String) As String() '最后加括号代表返回数组
最后downbom返回也是类似于上面的多维数组,
现在想赋值给ckarr2,不知道我这样写对不对:
ckarr2() = downbom(ckarr1(5, i))
我的第一个问题已经解决,是我定义时没定义好数组.要加上 "As String"

但第二个问题,ckarr2() = downbom(ckarr1(5, i))总是提示"下标越界"

我的代码太长不写出来了.大概的:
sub abc()里面的
shuzi()是数组
ckarr2() = downbom(shuzi(5,1)) 'ckarr2是全局变量

Function downbom(ByVal firname As String) As String()
dim ggg() as string

ggg()是动态数组,赋值后
redim Preserve ckarr2(....) 'ckarr2的大小跟动态数组ggg大小一样
downbom=ggg()

运行后在第1那里ckarr2总是提示下标越界

Answer 1

我用下面的代码运行无误，你对比一下看是什么问题，或者把你的代码放出来看看：
Dim ckarr() As String, ckarr1() As String, E As Integer
E = 10
ReDim ckarr(1 To 16, 5 To E)
ckarr(3, 7) = "1234"
ckarr(12, 9) = "abcd"
ckarr1() = ckarr()
Debug.Print UBound(ckarr1, 1)
Debug.Print UBound(ckarr1, 2)

追问

第一个问题已经解决,第二个问题请看,谢谢!