|
楼主 |
发表于 2014-4-24 21:01
|
显示全部楼层
index函数:'调用该工作表函数可以把二维数组的某一列或某一行截取出来,构成一个新的数组。
' Application.Index(二维数组,,列数)) 返回二维数组
' Application.Index(二维数组,行数,0)) 返回一维数组
Sub t3()
Dim arr, arr1, arr2
arr = Range("a2:d6")
arr1 = Application.Index(arr, , 1)
arr2 = Application.Index(arr, 4, 0)
Stop
End Sub
|
|