如果在两个或多个工作表中满足条件，如何使用VBA代码将特定单元格复制并粘贴到另一个工作表的不同区域

Sub CopyCellsBasedOnCondition()
    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 = "特定条件" Then ' 修改为实际的条件
            cell.Copy targetRange
            Set targetRange = targetRange.Offset(1) ' 将目标粘贴范围向下移动一行
        End If
    Next cell
End Sub