第114回.セル範囲⇔配列（マクロVBA高速化必須テクニック）
セル範囲をVariant型変数に入れる事で、配列を作成することができます。
また、配列をセル範囲にまとめて出力する事も出来ます。
マクロの処理が遅い場合は、このテクニックが使えないか検討してください。
そもそもデータ量が多いために時間がかかっている場合は、マクロVBAを根本的に見直す必要が出てきます。
マクロVBAの処理速度を改善するときの根本として、「セル範囲⇔配列」が必要となります。
セル範囲⇔配列の基本VBA
Dim MyArray
MyArray = Range("A1:B100")
・・・処理・・・
Range("A1:B100") = MyArray
変数MyArrayは、データ型を指定していませんので、Variant型になっています。
MyArray = Range("A1:B100")
これで、MyArrayは配列になります。
MyArray(1 To 100, 1 To 2)
このような配列です。
LBoundは1になる点を注意して下さい。
これで、配列の中の値が全てセル範囲に一括で出力する事が出来ます。
使用例
速度の違いは一目瞭然ですので、実際にやって体感してみて下さい。
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次元配列として定義するか、Variant型への代入の結果が2次元配列になっていればよいです。
ReDim MyArray2(1 To 100000, 1 To 1)
これは、
C列に出力する為の配列で、２次元で定義しています。
1次元目が行、2次元目が列に相当します。
LBoundは0でも問題ありませんが、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 ・・・新着記事一覧を見る
ユーザーに絶対に停止させたくない場合のVBA設定｜VBA技術解説（4月1日）
CharactersプロパティとCharactersオブジェクト｜VBA技術解説（3月31日）
指数近似/対数近似/累乗近似（掲載順位とCTR）｜エクセル関数超技（3月31日）
練習問題32（連続数値部分を取り出し記号で連結）｜VBA練習問題（3月24日）
連続数値部分を取り出し記号で連結｜エクセル関数超技（3月24日）
数式バーの高さを数式の行数で自動設定｜VBAサンプル集（3月21日）
LET関数（数式で変数を使う）｜エクセル入門（3月21日）
スピルに対応したXSPLITユーザー定義関数（文字区切り）｜VBAサンプル集（3月15日）
XMATCH関数（範囲から値を検索し一致する相対位置）｜エクセル入門（3月14日）
XLOOKUP関数（範囲を検索し一致する対応項目を返す）｜エクセル入門（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ひらがな⇔カタカナの変換｜エクセル基本操作
8.繰り返し処理（For Next)｜VBA入門
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)｜エクセル関数超技
10.セルに文字を入れるとは（Range,Value）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。