能否从4行3列的数组里，不用循环直接获取第2列第3列数据？

jaxxcyh

能否从4行3列的数组里，不用循环直接获取第2列第3列数据？

我知道 application.index 可以每次从二维数组中获取一行或一列数据，现在的问题呢是一次性获取多行或多列数据放到新数组中，不用循环能否做到？


Sub test()
    Dim arr(), brr()
    arr = Evaluate("{" & "1,2,3;4,5,6;7,8,9;10,11,12" & "}")
    brr = Application.Index(arr, 0, 2)
End Sub

jaxxcyh

index只能获取二维数组的某一行或某一列数据，如何获取多行或多列数据呢？
一般来说不外乎这两种方法：1.循环，2.数组arr倒到range中，再从range倒回到数组brr。
除了以上方法，还有没有别的法子？

大灰狼1976

得不偿失，循环获取是最快的。

1. Sub test()
   
2.   Dim arr(), brr
   
3.   arr = Evaluate("{" & "1,2,3;4,5,6;7,8,9;10,11,12" & "}")
   
4.   With Application
   
5.     brr = .Transpose(Array(.Transpose(.Index(arr, , 2)), .Transpose(.Index(arr, , 3))))
   
6.   End With
   
7. End Sub

复制代码

ykcbf1100

你为什么那么排斥循环呢？循环时可以设置起始行或列就行。

jaxxcyh

ykcbf1100 发表于 2024-8-1 17:05
你为什么那么排斥循环呢？循环时可以设置起始行或列就行。

就是想了解一下有没有批量获取数组数据的方法，总觉得批量获取比一个个循环获取来的快。