VBA：復制粘貼到一個工作表宏錯誤

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