如何在一张纸的列上使用某些条件将数据从一张纸复制到另一张纸。 每次应将数据粘贴到工作表2的最后一行

Question

我的数据在工作表1中，带有行标题。如名称，城市，工作分配，日期。 现在，工作表1在Column1中有100个成员的列表，并且每天将为他们分配2-3种类型的分配。 分配将输入到第2列中。日期将输入到第3列中。

我想将工作表1中提到的每个日期的作业复制到工作表中。 因为这是为了记录，所以我想将数据粘贴到工作表2的新行中，以便可以保留以前的记录。

如果列B中的任何条件匹配，则应执行所有这些活动

任何命令按钮都将执行操作。

我有下面的代码正在工作，以共付从Sheet（new）到Sheet（Data）的所有数据范围，但是在这里我想在条件下共付数据...

...

Option Explicit

Sub Copy_Paste_Below_Last_Cell()
'Find the last used row in a sheet and copy and paste data below it.

Dim lRow As Long

    ThisWorkbook.Activate

    '1. Find last used row in destination sheet
    lRow = Worksheets("Data").Cells(Worksheets("Data").Rows.Count, 1).End(xlUp).Row

    'Offset 1 row below last used row
    lRow = lRow + 1

    '2. Copy data
    Worksheets("New").Range("A2:C4").Copy

    '3. Paste data
    Worksheets("Data").Range("A" & lRow).PasteSpecial

    'Clear copy mode (marching ants around copied range)
    Application.CutCopyMode = False

End Sub