【Excel-VBA】配列変数を使って大量のデータを一気に処理する

最初の配列MyArray1でデータを変数内にまとめて納めるMyArray1 = Range(“A2:C” & row01) もう一つの配列に結果を納めるReDim MyArray2(1 To row01, 1 To 2) 最後に範囲指定した場所に一気に放り込むRange(“D2:E” & row01) = MyArray2

Sub tesut02()
Dim i As Long
Dim MyArray1
Dim MyArray2
Dim sh01 As Worksheet
Set sh01 = Worksheets(“メーカー在庫まとめ”)
row01 = sh01.Cells(Rows.Count, 2).End(xlUp).Row ‘最終行

MyArray1 = Range(“A2:C” & row01)
ReDim MyArray2(1 To row01, 1 To 2)

For i = LBound(MyArray1, 1) To UBound(MyArray1, 1)
    MyArray2(i, 1) = MyArray1(i, 1) & "M" & MyArray1(i, 2)
    MyArray2(i, 2) = MyArray1(i, 3)
Next

Range(“D2:E” & row01) = MyArray2

コメントを残す

メールアドレスが公開されることはありません。