Excel VBA脚本，用于将数据从一张纸移动到另一张纸，而不会覆盖编译错误。

Question

这是我的代码。 我不断收到各种错误，并在论坛上搜寻了试图找到答案的答案，但我无法将其编译。 当前错误是“ Sub或Function undefined”，我正在尝试将表头DailyInput以外的所有数据复制到表MonthlyRoll的末尾，而不会覆盖MonthlyRoll中的数据。 这将由命令按钮控制，但是我什至无法编译它。 我对VBA还是很陌生，只是无法弄清楚我的错误。 我正在使用Excel2016。

Sub copycolumns()

Dim lastrow As Long, erow As Long
lastrow = Worksheet("DailyInput").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastrow
Worksheet("DailyInput").Cells(i, 1).Copy
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Worksheet("DailyInput").PasteDestination:=Worksheets("MonthlyRoll").Cells(erow, 1)

Worksheet("DailyInput").Cells(i, 3).Copy
Worksheet("DailyInput").PasteDestination:=Worksheets(“MonthlyRoll”).Cells(erow, 2)

Worksheet("DailyInput").Cells(i, 6).Copy
Worksheet("DailyInput").Paste Destination:=Worksheets("MonthlyRoll").Cells(erow, 3)
End If

Next i
Application.CutCopyMode = False
Worksheet("MonthlyRoll").Columns().AutoFit
Range(“A1”).Select

End Sub

Answer 1

首先，养成在模块顶部使用“ Option Explicit”的习惯。 这将帮助很多！

您的问题之一是您尝试使用工作表，它不是有效的VBA对象。 另外，您在.Paste代码中缺少空格。 这样编译，看看是否能给您预期的结果。

 Sub copycolumns()
Dim i As Long, _
    lastRow As Long, _
    erow As Long

lastRow = Worksheets("DailyInput").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow
    Worksheets("DailyInput").Cells(i, 1).Copy
    erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    Worksheets("DailyInput").Paste Destination:=Worksheets("MonthlyRoll").Cells(erow, 1)

    Worksheets("DailyInput").Cells(i, 3).Copy
    Worksheets("DailyInput").Paste Destination:=Worksheets("MonthlyRoll").Cells(erow, 2)

    Worksheets("DailyInput").Cells(i, 6).Copy
    Worksheets("DailyInput").Paste Destination:=Worksheets("MonthlyRoll").Cells(erow, 3)
Next i

Application.CutCopyMode = False
Worksheets("MonthlyRoll").Columns().AutoFit
Range("A1").Select

End Sub