VBA脚本仅复制新行

Question

我已经编写了第一段VBA代码。目的是拥有一个包含所有信息的摘要表，然后有一些“子”表来显示摘要表中的特定信息。

我的第一步是使代码正常工作。它做了。 但是每次我按下按钮时，它都会再次复制所有内容。我只想复制符合条件的新条目。

最后，我希望可以轻松地添加更多的子工作表选项。

Private Sub CommandButton1_Click()
a = Worksheets("Work in progress").Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To a

    If Worksheets("Work In Progress").Cells(i, 12).Value = "Berri Workshop" Then

        Worksheets("Work In Progress").Rows(i).Copy
        Worksheets("Berri Workshop").Activate
        b = Worksheets("Berri Workshop").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("Berri Workshop").Cells(b + 1, 1).Select
        ActiveSheet.Paste
        Worksheets("Work In Progress").Activate

    End If
Next

End Sub