将可变行数复制到一个匹配的行VBA

Sub CopyRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源数据和目标数据的工作表和范围
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    Set sourceRange = sourceSheet.Range("A1:A" & sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    Set targetRange = targetSheet.Range("B1:B" & targetSheet.Cells(Rows.Count, 2).End(xlUp).Row)
    
    ' 循环遍历源数据的每一行
    For i = 1 To sourceRange.Rows.Count
        ' 判断当前行是否满足匹配条件
        If sourceRange.Cells(i, 1).Value = "特定值" Then
            ' 将当前行的数据复制到目标数据的对应行
            sourceRange.Cells(i, 1).EntireRow.Copy targetRange.Cells(i, 1)
        End If
    Next i
End Sub