如果符合条件，则从一个工作表复制所选数据并粘贴到所选范围内的其他工作表

Question

我有两张说（Sheet1）= Sheets（＆＃34; Jan＆＃34;）和sheet2 = Sheets（＆＃34; Feb＆＃34;） 我想只将范围b5：b81中的数据从工作表（＆＃34; Jan＆＃34;）复制到工作表（＆＃34; 2月和＃34;），如果它满足范围AN5：AN81中的条件。

我正在使用此代码，但无法使用

Sub CopyRows()
    Dim Rng As Range
    Dim Rng2 As Range
    Dim Cl As Range
    Dim str As String
    Dim RowUpdCrnt As Long

    Set Rng = Sheets("Jan").UsedRange  'the range to search ie the used range
    Set Rng2 = Sheets("Jan").Range("B")
    str = "WRK." 'string to look for

    Sheets("Feb").Range("B5:B81").Value = ""

    RowUpdCrnt = 5

    ' In my test data, the "Yes"s are in column AN.  This For-Each only selects column AN.
    ' I assume all your "Yes"s are in a single column.  Replace "B" by the appropriate
    ' column letter for your data.

    For Each Cl In Rng.Columns("AN").Rows
        If Cl.Text = str Then
            'if the cell contains the correct value copy it to next empty row on sheet 2 &  delete the row
            Cl.cell(2, 5).Copy Sheets("Feb").Cells(RowUpdCrnt, 1)
            RowUpdCrnt = RowUpdCrnt + 1
        End If
    Next Cl
End Sub