VBA用数组函数填充二维

Question

我想使用Array函数

用静态值填充二维数组

我知道我可以为单维数组执行以下操作

dim vOneDimArray as variant
vOneDimArray=Array("A","B","C")

我发现我可以做到跟进

Dim vTwoDArray as variant
vTwoDArray = Array(Array("A","z"),Array("B","y"),Array("C","x"))

但是，为了访问您使用的数据

Debug.print vTwoDArray(0)(0)  ' prints "A"

尝试

Debug.Print vTwoDArray(0,0)  ' give subscript error, I don't know why

如何为二维数组做同样的事情？

Answer 1

你可以用这种简单的方式。调暗数组变量：

Dim MyArray(x, n) As String

然后运行一个循环（在每个维度的另一个循环内），用你的值填充元素。