与if条件复制数据vba

Sub CopyDataBasedOnCondition()
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim conditionRange As Range
    Dim cell As Range
    
    ' 设置源数据范围
    Set sourceRange = Worksheets("Sheet1").Range("A1:A10")
    
    ' 设置目标数据范围
    Set destinationRange = Worksheets("Sheet2").Range("A1:A10")
    
    ' 设置条件范围
    Set conditionRange = Worksheets("Sheet1").Range("B1:B10")
    
    ' 遍历条件范围中的每个单元格
    For Each cell In conditionRange
        ' 判断条件是否满足
        If cell.Value = "条件" Then
            ' 复制对应的源数据到目标数据范围
            destinationRange.Value = sourceRange.Value
        End If
    Next cell
End Sub