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

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

Answer 2

是的，我们可以

mat1 = Array("", 1, 0, 1)
mat2 = Array("e0", 2, 1, 0)
mat3 = Array("e1", 3, 1, 1)

tota = Array(mat1, mat2, mat3)

这边