将数列读入数组的最快方法

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

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

2012-07-16 AZhu

是否这样？

Dim Ar as Variant 

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

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

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

2012-07-16 12:48:10

在这种情况下，Ar是一个范围对象，但不是在一个数组VBA .... – AZhu 2012-07-16 13:26:43

这是一个数组。 – 2012-07-16 13:28:41

表格（“Sheet”）。Range（“A1：A10000”）。values working – AZhu 2012-07-16 13:29:13

回答