vba - 运行时错误 - 438

Question

我有以下代码，我试图在同一工作簿中将数据从一张表复制到另一张表。当我运行代码时，我得到运行时错误 -438

Sub Copy()

Sheets("Sheet1").Range("A1:D20").Copy

Sheets("Sheet2").Activate

Range("E1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

Answer 1

试试下面的代码。您不应依赖激活和选择。

Sub ZCopy()
    Sheets("Sheet1").Range("A1:D20").Copy
    Sheets("Sheet1").Paste Destination:=Worksheets("Sheet2").Range("E1")
    Application.CutCopyMode = False
End Sub

有趣的读物

MSDN

How to avoid using Select in Excel VBA macros