range.copy 函数的外部过程无效

Question

我是 VBA Excel 编码的新手，我正在尝试执行一个简单的 range.copy 函数来自动将值从一个工作表复制和粘贴到另一个工作表。 以下是我的代码：

Private Sub CommandButton1_Click()

 Worksheets("Consolidated YTD").Range("A1:AF144").copy Worksheets("Consolidated PriorYTD").Range("A1")

我不断收到无效外部程序的编译错误。 有没有人知道为什么会这样？ 谢谢！

Answer 1

您必须关闭您的子添加结束子：

Private Sub CommandButton1_Click()
 Worksheets("Consolidated YTD").Range("A1:AF144").copy Worksheets("Consolidated PriorYTD").Range("A1")
End Sub