最快的方法是将一列数字读入数组中

说如果我有一列数字（其中有多less可能会有所不同，但可能在1000-10000之间的任何地方），我想将它们全部读入VBA数组中，这样做的最快方法是什么？

很明显，我可以创build一个大小为10000的数组，并做一个for / while循环，但是有没有比这更快的方法？

Answer 1

喜欢这个？

Dim Ar as Variant Ar = Sheets("Sheet").Range("A1:A10000").Value 

如果你不知道最后一行，那么你可以find最后一行，然后使用上面的代码

 Ar = Sheets("Sheet").Range("A1:A" & LRow).Value