复制/粘贴范围从一个工作表到另一工作表中的下一个可用列

Question

我正在尝试将一系列数据从一个工作表复制到同一工作簿中的另一个工作表。

因此，复制Sheet1中的范围（“ A2：B10”），然后粘贴到Sheet2中的（“ A2”）中。

每次运行宏时，我希望将（“ Sheet 1”）。Range（“ A2：B10”）中的值粘贴到连续的列中，因此在第二次运行中，在“ B2”]中>工作表2中的“ C2”。

我有第一部分，但在第二部分中苦苦挣扎：

Sub sbCopyRangeToAnotherSheet()
'Set range
Sheets("Sheet1").Range("A2:B10").Copy  Destination:=Sheets("Sheet2").Range("A2")
'Copy the data
Sheets("Sheet1").Range("A2:B10").Copy
'Activate the destination worksheet
Sheets("Sheet2").Activate
'Select the target range
Range("A2").Select
'Paste in the target destination
ActiveSheet.Paste

Application.CutCopyMode = False
End Sub

我正在尝试将一系列数据从一个工作表复制到同一工作簿中的另一个工作表。因此，在Sheet1中复制range（“ A2：B10”），然后在Sheet2中粘贴（“ A2”）。每次运行宏时，我...

Answer 1

您的代码很奇怪

Answer 2

这是无需使用Active和Select即可完成的工作：