如何修复“错误：Range 类的 PasteSpecial 方法失败”？

Question

我正在尝试编写一个宏，该宏从每天（星期一、星期二、星期三、星期四和星期五）的工作表中复制表格（颜色、格式等）并粘贴到同一天的工作表（262 张）。 （星期一 - 星期一等）我在工作表“数据”中的工作表名称。

但我收到了这个错误：

运行时错误“1004”：方法 PasteSpecial 类范围失败。

这是我的 VBA 宏：

Sub copy_paste()

For i = 1 To 262
    If 1 = i Mod 5 Then
        Worksheets("wednesday").Activate
        Cells.Select
        Application.CutCopyMode = False
        Selection.Copy
        ' This is the problem part of code (said Debugger)
        Sheets(Worksheets("Data").Cells(i, 2).Value).Range("A1").PasteSpecial _
            Paste:=x1PasteAllUsingSourceTheme, Operation:=x1None _
            , SkipBlanks:=False, Transpose:=False
    End If
    If 2 = i Mod 5 Then
        Sheets("thursday").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets(Worksheets("Data").Cells(i, 2).Value).Range("A1").PasteSpecial _
            Paste:=x1PasteAllUsingSourceTheme, Operation:=x1None _
            , SkipBlanks:=False, Transpose:=False
    End If
    If 3 = i Mod 5 Then
        Sheets("friday").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets(Worksheets("Data").Cells(i, 2).Value).Range("A1").PasteSpecial _
            Paste:=x1PasteAllUsingSourceTheme, Operation:=x1None _
            , SkipBlanks:=False, Transpose:=False
    End If
    If 4 = i Mod 5 Then
        Sheets("monday").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets(Worksheets("Data").Cells(i, 2).Value).Range("A1").PasteSpecial _
            Paste:=x1PasteAllUsingSourceTheme, Operation:=x1None _
            , SkipBlanks:=False, Transpose:=False
    End If
    If 0 = i Mod 5 Then
        Sheets("tuesday").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets(Worksheets("Data").Cells(i, 2).Value).Range("A1").PasteSpecial _
            Paste:=x1PasteAllUsingSourceTheme, Operation:=x1None _
            , SkipBlanks:=False, Transpose:=False
    End If
Next i

End Sub

Answer 1

您可以使用 Worksheets("SheetName").Paste 方法，而不是 Range.PasteSpecial 方法。

但实际上，如果您真的要复制所有内容，我建议您使用完整的工作表副本：

    Worksheets("wednesday").Copy After:=Worksheets(Sheets.Count)
    ActiveSheet.Name = Worksheets("Data").Cells(i, 2).Value

Answer 2

在我解决了这两个问题后，它起作用了。

您的代码中到处都有 x1 而不是 xl。 – 贾斯蒂娜 MK

请检查它是否应该是 Operation:=xlPasteSpecialOperationNone 而不是 Operation:=x1None – skkakkar