セル範囲⇔配列｜ExcelマクロVBA入門

最終更新日：2018-02-06

第114回.セル範囲⇔配列

セル範囲をVariant型変数に入れる事で、配列を作成することができます、

また、配列をセル範囲にまとめて入れる事も出来ます。

これは、VBAを高速処理したい時の必須テクニックになります、

マクロVBAの処理が遅い場合は、このテクニックが使えないか検討してください。

セル範囲⇔配列の基本


  
    
      
      Dim MyArray
      MyArray = Range("A1:B100")
      ・・・処理・・・

      Range("A1:B100") = MyArray

MyArray = Range("A1:B100")

これで、MyArrayは配列になります。

MyArray(1 To 100, 1 To 2)

の配列です。

LBoundは1になる点を注意して下さい。

Range("A1:B100") = MyArray

これで、配列の値が、セル範囲に一度に入れる事が出来ます。

使用例．

以下は、配列を使わない場合と、配列を使った場合のサンプルになります。

速度の違いは、一目瞭然ですので、実際にやってみて下さい。


  
    
      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

単に、100000行の掛け算をしています。

セル範囲とやり取りする配列は、必ず２次元で定義します。

上記で、

ReDim MyArray2(1 To 100000, 1 To 1)

これは、C列に入れる為の配列ですが、２次元で定義しています。

1次元目が行、2次元目が列に相当します。

LBoundは、0でも問題ありませんが、1にした方が理解しやすいと思います。

これほど単純な処理は、あまり無いと思いますが、

大量データを扱う場合は、適宜、配列を使うようにする事で、

高速処理を実現する事が出来ます。

ぜひ、マスターして頂きたいテクニックになります。

以下も参考にして下さい。