在excel中使用vba复制特定条件下的数据

Sub CopyDataWithCondition()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源数据范围
    Set sourceRange = sourceSheet.Range("A1:A10") ' 假设源数据在A1:A10范围内
    
    ' 清空目标工作表
    targetSheet.UsedRange.Clear
    
    ' 复制满足条件的数据到目标工作表
    For Each cell In sourceRange
        If cell.Value = "特定条件" Then ' 根据特定条件进行判断
            If targetRange Is Nothing Then
                Set targetRange = targetSheet.Range("A1")
            Else
                Set targetRange = targetRange.Offset(1)
            End If
            cell.EntireRow.Copy targetRange
        End If
    Next cell
End Sub