VBA Excel将行从一个工作表复制到其中包含特定值的另一个工作表

Sub CopyRowsWithSpecificValue()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim specificValue As String
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:A" & sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    Set targetRange = targetSheet.Range("A1")
    
    ' 设置特定值
    specificValue = "特定值"
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 检查单元格的值是否等于特定值
        If cell.Value = specificValue Then
            ' 将整行复制到目标范围
            cell.EntireRow.Copy targetRange
            ' 将目标范围下移一行，以便复制下一行
            Set targetRange = targetRange.Offset(1)
        End If
    Next cell
End Sub