第114回.セル範囲⇔配列(マクロVBA高速化必須テクニック)
セル範囲をVariant型変数に入れる事で、配列を作成することができます。
また、配列をセル範囲にまとめて出力する事も出来ます。
マクロの処理が遅い場合は、このテクニックが使えないか検討してください。
そもそもデータ量が多いために時間がかかっている場合は、マクロVBAを根本的に見直す必要が出てきます。
マクロVBAの処理速度を改善するときの基本として、「セル範囲⇔配列」が必要となります。
セル範囲⇔配列の基本VBA
Dim MyArray
MyArray = Range("A1:B100").Value
'・・・処理・・・
Range("A1:B100").Value = MyArray
これで、MyArrayは配列になります。
このような縦横の2次元配列です。
これで、配列の中の値が全てセル範囲に一括で出力する事が出来ます。
セル範囲を受け取る変数宣言について
Dim MyArray As Variant
これは、どちらも単なるVariant宣言です。
Dim MyArray() As Variant
これはVariantの配列宣言になります。
VBA内部としては厳密には違いがありますが、一般的に気にするような違いはありません。
Dim MyArray
この記述を基本としていますが、他の記述をしている場合もあります。
配列の下限について
LBoundが必ず1になる点に注意して下さい。
ただし、セルに出力する場合の配列下限は1でも0でも、どちらでも構いません。
使用例
速度の違いは一目瞭然ですので、実際にやって体感してみて下さい。
Sub sample1()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To 100000
Cells(i, 3) = Cells(i, 1) * Cells(i, 2)
Next i
Application.ScreenUpdating = False
End Sub
Sub sample2()
Dim i As Long
Dim MyArray1
Dim MyArray2
MyArray1 = Range("A1:B100000")
ReDim MyArray2(1 To 100000, 1 To 1)
For i = LBound(MyArray1, 1) To UBound(MyArray1, 1)
MyArray2(i, 1) = MyArray1(i, 1) * MyArray1(i, 2)
Next i
Range("C1:C100000") = MyArray2
End Sub
単に、100,000行の掛け算をしています。
必ず2次元の配列になっている必要があります。
2次元配列として定義するか、Variant型への代入の結果が2次元配列になっていればよいです。
ReDim MyArray2(1 To 100000, 1 To 1)
これは、
C列に出力する為の配列で、2次元で定義しています。
1次元目が行、2次元目が列に相当します。
1開始にしたほうが方が理解しやすいと思います。
大量データを扱う場合は、適宜配列を使うようにする事で高速処理を実現する事が出来ます。
ぜひ、マスターして頂きたいテクニックになります。
配列およびマクロVBAの高速化に関するページ
同じテーマ「マクロVBA入門」の記事
第111回.静的配列
第112回.動的配列(Redim)
第113回.配列に関連する関数
第114回.セル範囲⇔配列(マクロVBA高速化必須テクニック)
第115回.Split関数
第116回.ファイル操作Ⅱ(OpenとClose)
第117回.ファイル操作Ⅱ(Line Input #)
第118回.ファイル操作Ⅱ(Print #)
第119回.ファイルシステムオブジェクト(FileSystemObject)
第120回.OnTimeメソッド
第121回.SendKeysメソッドとAppActivateステートメント
新着記事NEW ・・・新着記事一覧を見る
新旧マスタの差異比較|Power Query(M言語)入門(2023-02-28)
有効な最新単価の取得|Power Query(M言語)入門(2023-02-26)
有効な最新単価の取得|Power Query(M言語)入門(2023-02-21)
グルーブ内の最小・最大|Power Query(M言語)入門(2023-02-17)
2つのテーブルのマージ|Power Query(M言語)入門(2023-02-15)
「売上」が数値の行のみ取り込む|Power Query(M言語)入門(2023-02-13)
A列のヘッダー名を変更する|Power Query(M言語)入門(2023-02-11)
CSVのA列が日付の行だけを取り込む|Power Query(M言語)入門(2023-02-10)
列数不定のCSVの取り込み|Power Query(M言語)入門(2023-02-09)
別ブックの最終シートの取り込み|Power Query(M言語)入門(2023-02-08)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.マクロって何?VBAって何?|VBA入門
7.並べ替え(Sort)|VBA入門
8.Excelショートカットキー一覧|Excelリファレンス
9.エクセルVBAでのシート指定方法|VBA技術解説
10.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。