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

Question

我想在函数 (arrayA)、函数 (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 已经通过了第一个。