如何将数据从工作表复制到空行上的另一工作表

Question

专家，我有两个工作表。我正在尝试使用此代码将工作表“输入工作表”中的数据复制到“数据库”工作表中。

Sub CopyInvoiceNo()

    Dim ws As Worksheet, ws1 As Worksheet
    Dim lastrow As Long
    Set ws = Sheets("Input Sheet")
    Set ws1 = Sheets("Database")

    lastrow = ws.Cells(Rows.Count, 4).End(xlUp).Row
    ws.Range("A3:J" & lastrow).Copy
    ws1.Range("B3").PasteSpecial xlPasteValues
    ws1.Activate

End Sub

此代码工作得很好。但有一个问题。当我第二次按下按钮时，它将覆盖数据。

目标是每次我按下“粘贴按钮”时，都应在第一行填充后粘贴数据。我试过，但徒劳。怎么做。在此先感谢。

Answer 1

您没有调整粘贴操作的目标。

Sub CopyInvoiceNo()

    Dim ws As Worksheet, ws1 As Worksheet
    Dim lastrow As Long
    Set ws = Sheets("Input Sheet")
    Set ws1 = Sheets("Database")

    lastrow = ws.Cells(Rows.Count, 4).End(xlUp).Row
    ws.Range("A3:J" & lastrow).Copy
    ws1.Range("B" & rows.count).end(xlup).offset(1, 0).PasteSpecial xlPasteValues
    ws1.Activate

End Sub