逐行復制到新工作表

Question

我在Sheet1中有數據行：

交易編號為A欄
B列，其中包含客戶名稱
C列中的金額。

每月最多可以增加一千行。 我想將第1行到第10行復制並粘貼到Range（“ D23：D32”），然后將以下十行復制並粘貼到Range（“ M23：M32”），依此類推，復制到另一個新表。

我應該如何在VBA中編碼？

Answer 1

Sub Tester()
    Dim rngCopy As Range, rngPaste As Range
    Set rngCopy = Sheets("sheet1").Range("A1:C10")
    Set rngPaste = Sheets("Sheet2").Range("D23")
    Do While Application.CountA(rngCopy) > 0
        rngCopy.Copy Destination:=rngPaste
        Set rngCopy = rngCopy.Offset(10, 0)
        Set rngPaste = rngPaste.Offset(0, 9)
    Loop
End Sub