arrays - 如何在Excel的vba中初始化多维数组变量

Question

Microsoft site建议以下代码应该可以工作:

暗数字 = {{1, 2}, {3, 4}, {5, 6}}

但是，当我尝试在 Excel VBA 模块中使用它时，出现编译错误。 以下内容适用于一维数组:

A = 数组(1, 2, 3, 4, 5)

但是我还没有找到一种方法对二维数组执行相同的操作。 有什么想法吗？

Answer 1

您还可以使用利用 Evaluate 函数和静态数组的速记格式。在下面的代码中，设置了 varData，其中 [] 是 Evaluate 函数的简写，而 {...} 表达式表示静态数组。每行由 ; 分隔，每个字段由 , 分隔。它使您得到与 simoco 代码相同的最终结果，但语法更接近您原来的问题:

Sub ArrayShorthand()

    Dim varData As Variant
    Dim intCounter1 As Integer
    Dim intCounter2 As Integer

    ' set the array
    varData = [{1, 2, 3; 4, 5, 6; 7, 8, 9}]

    ' test
    For intCounter1 = 1 To UBound(varData, 1)
        For intCounter2 = 1 To UBound(varData, 2)
            Debug.Print varData(intCounter1, intCounter2)
        Next intCounter2
    Next intCounter1

End Sub