vba - 在同一工作簿上复制数据时出现运行时错误 1004

Question

我正在尝试将数据从一张纸复制到另一张纸。但我得到一个运行时错误1004 Application defined or object defined error。

Sub copycells()
    Sheets("B").Select
    Range("A2:M299").Copy
    Sheets("A").Select
    Range("E20:Q317").Select
    ActiveSheet.Paste
End Sub

有没有其他方法可以做到这一点。在此先感谢

Answer 1

尝试：

Sub copycells()
    Sheets("A").Range("A2:M299").Copy
    Sheets("B").Range("E20:Q317").Activate
    ActiveSheet.Paste
End Sub

这是另一种甚至不使用“激活”的方法

Sub CopyCellsWithoutActivate()
    Sheets(1).Range("A2:M299").Copy
    Sheets(2).Range("E20:Q317").PasteSpecial (xlPasteAll)
End Sub