从多张工作表复制范围，而不是只复制一张工作表

Question

我有一个工作簿，有7张工作表，但只有6张数据。所有这7张表都有相同的结构/标题，只是最后一张表（表7）是空白的。

我想编写一个代码，将A2:J15范围内的表1-6的内容复制到表7工作表中。我目前有一个代码，我一直在使用，以测试，看看它是否工作，但代码我只有副本和粘贴从一个工作表仅（见下文）。有什么建议吗？

在下面的工作表中，我有两个工作表，我希望数据来自其中，另一个是目标工作表，我希望数据去那里：

Sub sbCopyRangeToAnotherSheet()
Sheets("Source1").Range("A1:B10").Copy
Sheets("Source2").Range("A1:B10").Copy
Sheets("Destination").Activate
Range("A1:B10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Answer 1

您的问题来自于您试图将两个项目直接复制在彼此之后。第二个复制调用将覆盖您在第一个调用中复制的数据。

Sheets("Source1").Range("A1:B10").Copy
Sheets("Destination").Activate
Range("A1:B10").Select
ActiveSheet.Paste

Sheets("Source2").Range("<your new range here>").Copy
Sheets("Destination").Activate
Range("<your new range here>").Select
ActiveSheet.Paste
Application.CutCopyMode = False

上面的代码应该解释我的意思，尽管不是最有效的方法。更有效的方法是使用：

Sheets("Source1").Range("A1:B10").Copy Destination:=Sheets("Destination").Range("A1:B10")

Sheets("Source2").Range("A1:B10").Copy Destination:=Sheets("Destination").Range("<range>")