(五)VBA常用基础知识：数组3

1. 这回想记录下二维数组的操作

Sub Hello()
    Dim arr(1 To 4, 1 To 5) As String
    Dim i As Integer, j As Integer
    For i = 1 To 4
        For j = 1 To 5
            arr(i, j) = j
        Next
    Next
    '一维数组的最大索引值取得
   Debug.Print UBound(arr, 1)
    '一维数组的最小索引值取得
    Debug.Print LBound(arr, 1)
    '二维数组的最大索引值取得
    Debug.Print UBound(arr, 2)
    '二维数组的最小索引值取得
    Debug.Print LBound(arr, 2)
    
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            Cells(i, j) = arr(i, j)
        Next
    Next
End Sub
输出结果：
 4 
 1 
 5 
 1 

注意点：二维数组使用的时候最好不要直接arr（4,5）这样声明，因为索引从零开始，但是却包含最大的4和5，使用时特别容易出现混乱，所以在声明时arr（1 to 4,1 to 5）这样比较好，不会出现很多意想不到的错误，给自己找麻烦

2.excel输出内容确认