第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 ・・・新着記事一覧を見る
抜けている数値を探せ|エクセル雑感(2022-07-01)
.Net FrameworkのSystem.Collectionsを利用|VBA技術解説(2022-06-29)
迷路ネコが影分身の術を体得したら…|エクセル雑感(2022-06-27)
迷路にネコが挑戦したら、どうなるかな…|エクセル雑感(2022-06-26)
サロゲートペアに対応した自作関数(Len,Left,Mid,Right)|エクセル雑感(2022-06-24)
「マクロの登録」で登録できないプロシージャーは?|エクセル雑感(2022-06-23)
オブジェクトのByRef、ByVal、Variant|エクセル雑感(2022-06-22)
コメントから特定形式の年月を取り出す|エクセル雑感(2022-06-19)
4,9を使わない連番作成|エクセル雑感(2022-06-17)
連番を折り返して出力|エクセル雑感(2022-06-16)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.Excelショートカットキー一覧|Excelリファレンス
7.マクロって何?VBAって何?|VBA入門
8.並べ替え(Sort)|VBA入門
9.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
10.エクセルVBAでのシート指定方法|VBA技術解説
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。