Excel VBA从一个工作表复制到其他工作表基于条件的特定单元格

Sub CopyDataBasedOnCondition()
    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("源范围")
    Set targetRange = targetSheet.Range("目标范围")
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 根据条件判断是否复制该单元格的值
        If cell.Value = "条件" Then
            ' 复制单元格的值到目标范围对应的位置
            targetRange.Cells(cell.Row, cell.Column).Value = cell.Value
        End If
    Next cell
End Sub