VBAで二次元配列でのコピーとペーストをしたい

Question

前提

仕事でVBAを使用する為、学習を始めました。
データ量が多いCSVファイルを加工する必要がある為、
高速処理ができる二次元配列を使用して、コピーや貼り付けができるようにアウトプットしています。

実現したいこと

A1:AA6（6行27列)の表があり、この表をコピーと貼り付けしたいのですが、
以下のコードで実行するとA1：F6(6行6列)0しか貼り付けされません。

表全てをコピーし、貼り付けができるようにしたいです。

該当のソースコード

Sub test()
    Dim row_i As Integer, column_i As Integer
    Dim arr() As Variant
    
    Set MasterWs = Worksheets("sample")

'行数列数を求める
    rowsData = MasterWs.Cells(Rows.Count, 1).End(xlUp).Row
    columnsData = MasterWs.Cells(1, Columns.Count).End(xlToLeft).Column

    
    ReDim Preserve arr(columnsData, rowsData)
    
'二次元配列に値を入れていく。恐らくここがおかしい。
    For column_i = 0 To columnsData
        For row_i = 0 To rowsData
            arr(column_i, row_i) = MasterWs.Cells(column_i + 1, row_i + 1)
        Next
    Next
            

    iRowMax = UBound(arr, 1) - LBound(arr, 1)
    iColMax = UBound(arr, 2) - LBound(arr, 2)
    Range("A8").Resize(iRowMax, iColMax).Value = arr
    
End Sub

試したこと

表の中で空白があれば、埋めてみた。
縦も横も6行なのが怪しかったので、column_iとrow_iを逆にしてみた。

Answer 1

Rangeの場合はA8など「列+行」なんですけどResizeなど「,」を使う場合は「行、列」で「8,1」もしくは「8,"A"」になります。

    Dim row_i As Integer, column_i As Integer
    Dim arr() As Variant
    
    Dim rowsData As Integer
    Dim columnsData As Integer
    Dim iRowMax As Integer
    Dim iColMax As Integer
    
    Dim MasterWs As Worksheet
        
    Set MasterWs = Worksheets("sample")

'行数列数を求める
    rowsData = MasterWs.Cells(Rows.count, 1).End(xlUp).row
    columnsData = MasterWs.Cells(1, Columns.count).End(xlToLeft).Column
    
    ReDim Preserve arr(rowsData, columnsData)
    
'こういう方法も
    'arr = Range(Cells(1, 1), Cells(rowsData, columnsData))
    
    'iRowMax = UBound(arr, 1) - LBound(arr, 1) + 1
    'iColMax = UBound(arr, 2) - LBound(arr, 2) + 1

    For row_i = 0 To rowsData
        For column_i = 0 To columnsData
            arr(row_i, column_i) = MasterWs.Cells(row_i + 1, column_i + 1)
        Next
    Next

    iRowMax = UBound(arr, 1) - LBound(arr, 1)
    iColMax = UBound(arr, 2) - LBound(arr, 2)
    
    Range("A8").Resize(iRowMax, iColMax).Value = arr

Comments

[taku-s]

お早い返答ありがとうございます、
上記コードで実現できました。

列と行の引数が逆になっていたんですね。。。
「列+行」と「行＋列」の使い分けがなかなかこんがらがりそうです、、

また、変数の宣言などの抜け漏れなど素人レベルでできておりませんでした。
初歩的なことですが、そこも学ばせていただきました。

ありがとうございます！