VBA 数组，取二维数组中的1行/1列的两种方法

 

1 取二维数组的 1行/ 1列的方法

1.1 方法1

• 循环方法，固定1行/1列，另外一维循环 
• for arr1(i,1) 

 

1.2 方法2

• application.index() 取一维
• application.index(arr1,1,0)
• application.index(arr1,0,1)

 

 

2 工作表函数的index都默认从1开始

2.1 工作表函数

• index 的序号默认都是从1开始，而非从0开始
• 用index取出来的数组，index已经从1开始了
• 工作表函数index ,match都是index从1开始，EXCEL本身 row column 都得从1开始

2.2 数组别忘记了你的index从0还是从1开始

 

Sub test001()

Dim arr1()
ReDim arr1(3, 3)

Debug.Print "不完整数组展示"
'因为你第一种显示数组只取了数组4*4中 3*3部分
For I = 1 To 3
    For J = 1 To 3
        arr1(I, J) = 2 * I + 3 * J
        Debug.Print arr1(I, J);
    Next
    Debug.Print
Next
Debug.Print

Debug.Print "完整数组展示"
'这才是数组的完整内容4*4
For I = LBound(arr1) To UBound(arr1)
    For J = LBound(arr1, 2) To UBound(arr1, 2)
        arr1(I, J) = 2 * I + 3 * J
        Debug.Print arr1(I, J) & ",";
    Next
    Debug.Print
Next
Debug.Print


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

'为啥第0行变成了第2行？--因为你第一种显示数组只取了数组4*4中 3*3部分
'index 的序号默认都是从1开始，而非从0开始
'用index取出来的数组，index已经从1开始了
'工作表函数index ,match都是index从1开始，EXCEL本身 row column 都得从1开始
 
 
Debug.Print "第1种方法，取1行"
arr2 = Application.Index(arr1, 2, 0)
For I = LBound(arr2) To UBound(arr2)
    Debug.Print arr2(I);
Next
Debug.Print
Debug.Print

Debug.Print "新数组边界"
Debug.Print LBound(arr2)    '用index取出来的数组，index已经从1开始了
Debug.Print UBound(arr2)
Debug.Print



Debug.Print "第2种方法，取1行"
For I = LBound(arr1, 2) To UBound(arr1, 2)
   Debug.Print arr1(1, I);     '用数组index取出来的index是不变的
Next
Debug.Print


End Sub