Excel VBA

ExcelのVBAでセル書き込みが遅すぎるのを速くしたい

ExcelのVBAで大量のセルに値を書き込むとき Cells(Y, X) = "foo" というようにセルオブジェクトに対して一つずつ代入していく方法ではとてつもなく時間がかかることがある。
このような処理を高速化するには、Variant変数にRangeオブジェクトを代入しておき、その変数に対して2次元配列でアクセスする。
最後にその変数をRangeオブジェクトに対して代入すれば、数十倍程度の高速化が図れる。
注意点は、最初に代入しておくRangeの範囲と最後に戻すときのRangeの範囲を同じにしておくことだ。
これが食い違うとエラーになってしまう。

Sub FastWriteCells()
    Dim c As Variant
    Dim y As Long, x As Long
    
    c = Range("A1:Z1000").Formula ' セル内の値・関数をまるごと変数に格納しておく
    
    For y = 1 To 1000
        For x = 1 To 26
            c(y, x) = "foo" ' セルを格納した変数に対して値を代入する
        Next
    Next
   
   Range("A1:Z1000") = c ' 変数をRangeに代入する
End Sub

[ 戻る ]