VBA 2次元配列で別シートへデータをコピペ

2次元配列で、別シートへコピペ

Sub test()
' 　2次元配列で、別シートへデータをコピペ

    Dim Data
    Dim r, c As Long
    
    Data = Sheets(1).Range("A1").CurrentRegion.Value
    
    '1次元の最大インデックスを取得(行)
    r = UBound(Data, 1)
    
    '2次元の最大インデックスを取得(列)
    c = UBound(Data, 2)

    With Sheets(2)
        .Range(.Cells(1, 1), .Cells(r, c)) = Data
    End With

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA　配列とは？』

『VBA 文字列を分割する（Split関数）』

『VBA 配列で文字列を結合する』

『VBA　一次元配列をセルに代入する』

『VBA Array関数で値をまとめ格納』