从一个工作表到另一个工作表复制和粘贴一系列单元格

Question

我正在尝试将一系列单元格从一个工作表（Sheet2）复制到另一个工作表（Sheet1）中的不同单元格区域但是当我运行下面的时候，我得到一个运行时错误（1004）应用程序定义或对象定义的错误。任何帮助表示赞赏！

Option Explicit

Sub deletecolumns()

Workbooks(1).Worksheets(1).Columns(2).Select
Workbooks(1).Worksheets(1).Columns(2).Delete


Sheets("Sheet2").Range("I4:I29").Copy Destination:=Sheets("Sheet1").Range("H4:H29")

End Sub

Answer 1

删除此行：

Workbooks(1).Worksheets(1).Columns(2).Select

在进行.delete之前不需要它