查找符合多个条件的单元格，并将其剪切粘贴到另一个工作表(简化)

Sub CopyCells()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围，可以根据需要调整
    Set sourceRange = sourceSheet.Range("A1:A10")
    
    ' 设置目标范围，可以根据需要调整
    Set targetRange = targetSheet.Range("B1")
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 判断单元格是否符合条件，可以根据需要调整条件
        If cell.Value = "条件1" And cell.Offset(0, 1).Value = "条件2" Then
            ' 将符合条件的单元格剪切粘贴到目标范围
            cell.Cut targetRange
            ' 将目标范围向下移动一行，以便下次粘贴
            Set targetRange = targetRange.Offset(1, 0)
        End If
    Next cell
End Sub