第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次元配列になっていればよいです。
Range("A1:C1") = Array(1, 2, 3)
1次元配列は、横向きのセル範囲に出力できます。
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 ・・・新着記事一覧を見る
AI時代におけるRPAとVBAの位置づけ - 補完技術としての役割と未来 -|生成AI活用研究(2025-05-12)
スマートExcel|AI×Excel:AIと進化するExcelの新常識|生成AI活用研究(2025-05-11)
VBA開発の現場で生成AIはどう使う? そのメリットと潜むリスク|生成AI活用研究(2025-05-11)
CursorでVBAを直接?編集・実行できる環境構築について|生成AI活用研究(2025-05-10)
Geminiと100本ノック 17本目:重複削除(ユニーク化)|生成AI活用研究(5月10日)
Geminiと100本ノック 16本目:無駄な改行を削除|生成AI活用研究(5月6日)
AIがあればVBAはできる:セルに絵文字を入れる|生成AI活用研究(2025-05-07)
Geminiと100本ノック 15本目:シートの並べ替え|生成AI活用研究(5月6日)
Geminiと100本ノック 14本目:社外秘シート削除|生成AI活用研究(5月4日)
Geminiと100本ノック 13本目:文字列の部分フォント|生成AI活用研究(5月4日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.繰り返し処理(For Next)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.ひらがな⇔カタカナの変換|エクセル基本操作
6.RangeとCellsの使い方|VBA入門
7.メッセージボックス(MsgBox関数)|VBA入門
8.セルのクリア(Clear,ClearContents)|VBA入門
9.FILTER関数(範囲をフィルター処理)|エクセル入門
10.条件分岐(Select Case)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。