vba数组例子

Sub Example()
    Dim arr(1 To 3, 1 To 2) As Integer '创建一个3行2列的二维数组

    arr(1, 1) = 1 '赋值
    arr(1, 2) = 2
    arr(2, 1) = 3
    arr(2, 2) = 4
    arr(3, 1) = 5
    arr(3, 2) = 6

    For i = 1 To 3 '循环取值
        For j = 1 To 2
            Debug.Print arr(i, j)
        Next j
    Next i
End Sub