您还可以使用利用Evaluate函数和静态数组的速记格式.在下面的代码中,设置varData,其中[]是Evaluate函数的简写,{…}表达式表示静态数组.每行用a分隔;每个字段用a分隔.它可以使您获得与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