ExcelマクロVBA入門
第114回.セル範囲⇔配列

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にした方が理解しやすいと思います。
これほど単純な処理は、あまり無いと思いますが、
大量データを扱う場合は、適宜、配列を使うようにする事で、
高速処理を実現する事が出来ます。
ぜひ、マスターして頂きたいテクニックになります。

同じテーマの記事
新着記事