二次元配列

‘A列を2次元配列を使用してB列へ出力したい場合

'A列を2次元配列を使用してB列へ出力
Sub GoodsCode()

    Dim i As Long
    Dim MyArray1
    Dim MyArray2
    MyArray1 = Range("A2:A100")
    
'2次元配列(行,列)
    ReDim MyArray2(1 To 100, 1 To 1)
    
'最小値～最大値繰り返し
    For i = LBound(MyArray1, 1) To UBound(MyArray1, 1)
        MyArray2(i, 1) = MyArray1(i, 1)
    Next i
    Range("B2:B100") = MyArray2
    
End Sub

‘AとB列を2次元配列を使用してCとD列へ出力したい場合

'AとB列を2次元配列を使用してCとD列へ出力
Sub GoodsCode()

    Dim i As Long
    Dim MyArray1
    Dim MyArray2
    MyArray1 = Range("A2:B100")
    
'2次元配列(行,列)
    ReDim MyArray2(1 To 100, 1 To 1)
    
'最小値～最大値繰り返し
    For i = LBound(MyArray1, 1) To UBound(MyArray1, 1)
        MyArray2(i, 1) = MyArray1(i, 1)
    Next i
    Range("C2:D100") = MyArray2
    
End Sub