EXCEL VBA处理金额数据，如何更快地过滤数据和复制粘贴到另一个工作表？

Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim filterCriteria As String

Set sourceSheet = ThisWorkbook.Worksheets("源数据工作表名称")
Set targetSheet = ThisWorkbook.Worksheets("目标数据工作表名称")

filterCriteria = InputBox("请输入过滤条件")
' 或者直接指定过滤条件
' filterCriteria = "条件"

sourceSheet.Range("A1").AutoFilter Field:=1, Criteria1:=filterCriteria

sourceSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Destination:=targetSheet.Range("A1")

sourceSheet.AutoFilterMode = False

Sub FilterAndCopyData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim filterCriteria As String
    
    ' 设置源数据工作表和目标数据工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源数据工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标数据工作表名称")
    
    ' 获取过滤条件
    filterCriteria = InputBox("请输入过滤条件")
    ' 或者直接指定过滤条件
    ' filterCriteria = "条件"
    
    ' 过滤数据
    sourceSheet.Range("A1").AutoFilter Field:=1, Criteria1:=filterCriteria
    
    ' 复制粘贴数据
    sourceSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Destination:=targetSheet.Range("A1")
    
    ' 清除筛选
    sourceSheet.AutoFilterMode = False
End Sub