将行按行复制到新工作表

Question

我在Sheet1中有数据行：

A栏，交易编号为
B列，客户名称和 列C与金额。

一行中的行数可达一千。我想将第1行复制并粘贴到第10行到范围（＆＃34; D23：D32＆＃34;），然后将以下十行复制到范围（＆＃34; M23：M32＆＃34;），依此类推，另一张新纸。

我应该如何在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