QA@IT
«回答へ戻る

回答を投稿

最終的には2000件くらいのデータを扱いたいのでこれでは実用に耐えません。

一つの方法として、2000という数字がわかっているなら、
3000行の書式付き雛形を用意しておき、最後に不要な部分を範囲指定して行削除するではどうでしょうか。
また値の設定もVariant2次元配列で一気にまたは数百行単位で複数回で設定するのも効果があります。
Dim varValue(1 To 3, 1 To 10) As Variant
XXXXX.Range("A1:J3").Value = varValue

投稿者:まどか

> 最終的には2000件くらいのデータを扱いたいのでこれでは実用に耐えません。

> 

一つの方法として、2000という数字がわかっているなら、
3000行の書式付き雛形を用意しておき、最後に不要な部分を範囲指定して行削除するではどうでしょうか。
また値の設定もVariant2次元配列で一気にまたは数百行単位で複数回で設定するのも効果があります。
Dim varValue(1 To 3, 1 To 10) As Variant
XXXXX.Range("A1:J3").Value = varValue


投稿者:まどか