Question

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

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

这样可以正常工作，但现在它抛出一个错误，说它无法粘贴，我应该选择一个单元格并单击粘贴或选择相同大小的形状。这是一个很多数据（每个标签150多列），但这对我来说上周有用，现在似乎已经坏了，尽管我没有改变任何东西。

有人能帮忙吗？

Answer 1

错误消息非常清楚，复制的范围与所选的粘贴不同。我建议只选择单元格并粘贴它。

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

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

1 个答案: