复制工作表的最后一行并粘贴到另一个工作表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

我最终删除了画布模板的其余部分，只是在工作表上有底行。现在工作真棒。