VBAをつかったセルの並べ替え、offset

Question

VBAについての質問です。
シート1の縦51×横64マスのセルに書かれている数字を シート2のC2から1行目の64マス、2行目の64マス、、、51行目の64マスと隙間なく1行に並べたいです。
マクロを作ったのですが、無限ループな上に全然上手くいかないので、どこが間違えているか教えてください（ ; ; ）

Dim r1 As Range, r2 As Range, m As Integer
Set r1 = Worksheets(1).Range("EF4:GQ4")
Set r2 = Worksheets(2).Range("C2")

For m = 1 To 51
Dim i As Integer
For i = 1 To 51
r1.Offset(m).Copy
r2.Offset(, 64 * i).PasteSpecial Paste:=xlPasteValues
Next
Next
Set r1 = Nothing
Set r2 = Nothing

End Sub

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim r1 As Range, r2 As Range
    Set r1 = Worksheets(1).Range("EF4").Resize(51, 64)
    Set r2 = Worksheets(2).Range("C2")
    
    Dim i As Long, j As Long, m As Long
    For i = 1 To 51
    For j = 1 To 64
        r2.Offset(, m).Value = r1.Cells(i, j).Value
        m = m + 1
    Next j, i
    
    Set r1 = Nothing
    Set r2 = Nothing
End Sub

Comments

[tirsujmn]

ありがとうございました！！助かりました！

Answer 2

念のためですが・・・

For i = 1 To 51　の次行に、m のクリア、
m = 0　を追加した方が良いかと、

また、
r2.Offset(, m).Value
は、 i - 1 を追加した方が良いのでは、と思います。
r2.Offset(i - 1, m).Value