VBA：复制粘贴到一个工作表macros错误

我正在尝试将工作簿中所有选项卡（工作表）中的列复制到Sheet1中的第一个空列。 上周，我写下了下面的macros：

Option Explicit Dim i As Integer Sub GICF_Confimit_CopyPaste_Sheet() For i = 2 To 50 Step 1 Sheets(i).Activate Range("C1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy Sheets("Sheet1").Activate Range("A1").End(xlToRight).Offset(0, 1).Select ActiveSheet.Paste Next i End Sub 

这工作得很好，但现在它抛出一个错误，说它不能粘贴，我应该select一个单元格，然后单击粘贴或select相同大小的形状。 这是很多的数据（每个标签有150多列），但是这个工作在上个星期就为我工作了，现在好像已经坏了，尽pipe我没有改变任何东西。

任何人都可以帮忙吗？

Answer 1

错误消息非常清楚，复制范围与选定的粘贴不一样。 所以我build议只select单元格并粘贴它。

 Option Explicit Dim i As Integer Sub GICF_Confimit_CopyPaste_Sheet() For i = 2 To 50 Step 1 Sheets(i).Activate Range("C1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy Sheets("Sheet1").Activate Range("A1").Select ActiveSheet.Paste Next i End Sub