逐行复制到新工作表答案

【问题标题】：Copy rows by rows to new sheet逐行复制到新工作表
【发布时间】：2015-09-07 09:08:56
【问题描述】：

Sheet1 中有数据行：

带有交易编号的 A 列
B 列包含客户名称和
C 列的金额。

每个月的行数可以增加到一千。我想将第 1 行到第 10 行复制并粘贴到 Range("D23:D32") 和以下十行到 Range("M23:M32")，依此类推，到另一个新工作表。

我应该如何在 VBA 中编码？

【问题讨论】：

如果您已经尝试了几天，您应该发布您当前的代码并解释为什么它不符合您的要求。
你的问题不清楚。如果您复制行，则 A、B 和 C 列中的单元格将在新工作表中被覆盖。你的意思是说范围（“A2：C11”）去范围（“D23：F32”）和（“A12：C21”）去（“M23：M32”）。其次，新工作表中的标题行怎么样。如果您将您要求的示例图片上传到图片托管网站，有人可能会引导您走向正确的方向。

标签： vba excel

【解决方案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

【讨论】：

不错的简单代码。它传输一个数据块，但指定的要求是它可以扩展到 1000 行。
@skkakkar - 你为什么不试试看？