使用excel vba复制特定数据

Sub CopySpecificData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:A" & sourceSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    Set targetRange = targetSheet.Range("B1")
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 检查条件并复制数据
        If cell.Value > 10 Then
            cell.EntireRow.Copy targetRange
            Set targetRange = targetRange.Offset(1)
        End If
    Next cell
End Sub