复制多列并粘贴到另一个工作簿中（目标）

Question

我一直将要复制的数据声明为范围，并使用.copy目标粘贴。 但是，当与多列一起使用时，会产生错误： error message

我要复制四组不同的数据。这是我所拥有的：

Sub newMacro()

'   Copy and paste all data

Dim copyNames As Range, pasteNames As Range, copyAmounts As Range, pasteAmounts, copyDates As Range, pasteDates As Range, _
copyPayment As Range, pastePayment As Range

Set copyNames = Workbooks("2019 11 November.xls").Worksheets(2).Columns("F")
Set copyAmounts = Workbooks("2019 11 November.xls").Worksheets(2).Columns("AR")
Set copyDates = Workbooks("2019 11 November.xls").Worksheets(2).Columns("AI")
Set copyPayment = Workbooks("2019 11 November.xls").Worksheets(2).Columns("AJ")

Set pasteNames = Workbooks("VBA Workbook.xlsm").Worksheets(1).Columns("A")
Set pasteAmounts = Workbooks("VBA Workbook.xlsm").Worksheets(1).Columns("C")
Set pasteDates = Workbooks("VBA Workbook.xlsm").Worksheets(1).Columns("D")
Set pastePayment = Workbooks("VBA Workbook.xlsm").Worksheets.Columns("E")

copyNames.Copy Destination:=pasteNames
copyAmoutns.Copy Destination:=pasteAmounts
copyDates.Copy Destination:=pasteDates
copyPayment.Copy Destination:=pastePayment

End Sub

先谢谢大家

Answer 1

pasteAmoutns未声明

按照 @BigBen 的建议，使用 Option Explicit 以避免拼写错误。