web-dev-qa-db-ja.com

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

数値の列があり（その数は変化する可能性がありますが、1000〜10000のいずれかになる可能性があります）、それらすべてをVBAの配列に読み取りたい場合、最速の方法は何ですか？

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

arraysexcelvbaexcel-vba
15
AZhu

このような？

Dim Ar as Variant

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

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

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