arrays - 数値の列を配列に読み込む最速の方法

Question

数字の列があり（いくつは変化する可能性がありますが、1000〜10000の間のどこかになります）、それらすべてをVBAの配列に読み込みたい場合、これを行う最も速い方法は何ですか？

明らかに、サイズ10000の配列を作成し、for / whileループを実行できますが、これよりも高速な方法はありますか？

Answer 1

このような？

Dim Ar as Variant

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

最後の行がわからない場合は、これを使用して最後の行を見つけ、上記のコードを次のように使用できます。

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