excel数组初始化方法 – PHP基础 – 前端 php 将网址存入数据库

您还可以使用利用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