复制工作表的最后一行并粘贴到另一工作表的VBA的最后一行

Question

现在，我有一本工作簿，其中包含一个母版纸和多个个人客户纸。 我正在编写一些代码来查看“客户”列，复制该行，然后将其粘贴到各自的工作表中。 最后，我希望将模板工作表的最后一行粘贴为客户工作表的最后一行。 这是为了计算平均值。 到目前为止，它仍然有效，但是最后一行粘贴到了工作表的顶部，但没有粘贴到底部。 我不知道如何使它成为最后一行。

Sub copyPasteDataCustomer()
Dim sws As Worksheet
Dim tws As Worksheet
Dim cel As Range
Set sws = Sheets("Master")
For Each cel In sws.Range("B5:B" & Range("B" & Rows.Count).End(xlUp).Row)
    Set tws = Sheets(CStr(cel.Value))
    cel.EntireRow.Copy tws.Range("A" & Rows.Count).End(xlUp).Offset(1)

    Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Canvus")
    Dim ws2 As Worksheet: Set ws2 = tws
    For i = 2 To ws1.Range("G" & Rows.Count).End(xlUp).Row
        ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, "G").End(xlUp))
    Next i
Next cel
End Sub

Answer 1

我最终删除了画布模板的其余部分，使其仅位于工作表的底部。 现在很棒。