Sub test001()

Dim arr1()
ReDim arr1(3, 3)

For I = 1 To 3
    For J = 1 To 3
        arr1(I, J) = 2 * I * J
        Debug.Print arr1(I, J);
    Next
    Debug.Print
Next
Debug.Print

Debug.Print LBound(arr1)
Debug.Print UBound(arr1)
Debug.Print

Debug.Print LBound(arr1, 2)
Debug.Print UBound(arr1, 2)
Debug.Print



'arr2 = Application.Transpose(Application.Index(arr1, , 1))
'arr2 = Application.Transpose(Application.Transpose(Application.Index(arr1, 1, 0)))



arr2 = Application.Index(arr1, 2, 0)     '为啥第0行变成了第2行？
For I = LBound(arr2) To UBound(arr2)
    Debug.Print arr2(I);
Next
Debug.Print

Debug.Print LBound(arr2)
Debug.Print UBound(arr2)
Debug.Print

Debug.Print

For I = LBound(arr1) To UBound(arr1)
   Debug.Print arr1(I, 1);
Next
Debug.Print



End Sub