Vba Excel - if value =值筛选和在corect工作表上复制-加速

If condition Then
    '执行操作1
ElseIf condition2 Then
    '执行操作2
Else
    '执行操作3
End If

Sub FilterAndCopy()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim cell As Range
    
    '设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("原始数据")
    Set targetSheet = ThisWorkbook.Worksheets("筛选结果")
    
    '设置源数据范围
    Set sourceRange = sourceSheet.Range("A1:A10")
    
    '遍历源数据范围中的每个单元格
    For Each cell In sourceRange
        '判断单元格的值是否符合筛选条件
        If cell.Value = "值" Then
            '将符合条件的单元格复制到目标工作表
            cell.Copy targetSheet.Cells(targetSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
        End If
    Next cell
End Sub