访问存储在另一个数组excel vba中的数组

Question

我想在函数（arrayA），Function（store）中创建一个数组。我希望函数存储返回数组A，我会将函数返回值存储在一个更大的数组ArrayB中。之后我想通过存储在arrayB元素（1）中打印出每个arrayA的元素。

请帮助，非常感谢，我的代码如下。

dim arrA() as variant
dim arrB() as variant

redim arrB(1)

arrb(1) = store(arrA)

for i = 1 to ubound(arrB(1)
debug.print arrB(1)(i)
next i

function store(A() as variant)

redim a(1 to 3, 1 to 3)

a(1,3) = "1"
a(1,2)="2"

store = A

end function

Answer 1

要打印arrA的内容，您必须像这样迭代它：

For i = 1 to UBound(arrB(1))
   For j = LBound(arrB(1), 2) To UBound(arrB(1), 2)
      Debug.Print arrB(1)(i, j)
   Next
Next

LBound / UBound函数的第二个参数用于选择我们想要的维度;在这种情况下，我们想要第二个，因为外部For已经通过第一个。