在vba中实现excel的“筛选”功能

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将"Sheet1"替换为你要筛选数据的工作表名称
    
    '判断是否已经存在筛选，如果存在则清除筛选
    If ws.AutoFilterMode Then
        ws.AutoFilterMode = False
    End If
    
    '筛选条件
    Dim filterColumn As Range
    Set filterColumn = ws.Range("A1:A10") '将"A1:A10"替换为你要筛选的列范围
    
    '设置筛选条件
    filterColumn.AutoFilter Field:=1, Criteria1:="条件1" '将"条件1"替换为你要筛选的条件
    
    '如果需要多个筛选条件，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:="条件1", Operator:=xlAnd
    'filterColumn.AutoFilter Field:=1, Criteria1:="条件2", Operator:=xlOr
    
    '如果需要按照数字范围筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:=">10", Operator:=xlAnd, Criteria2:="<20"
    
    '如果需要按照日期范围筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:=">2022/01/01", Operator:=xlAnd, Criteria2:="<2022/12/31"
    
    '如果需要按照文本包含筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:="*关键词*", Operator:=xlAnd
    
    '如果需要按照空值或非空值筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:="=", Operator:=xlAnd
    
    '如果需要按照颜色筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor
    
    '如果需要按照单元格图标筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:=xlFilterIcon
    
    '如果需要按照公式筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:="=SUM(A1:A10)>100", Operator:=xlAnd
    
    '如果需要按照自定义筛选，可以使用以下代码
    'filterColumn.AutoFilter Field:=1, Criteria1:=xlFilterValues, Operator:=xlFilterDynamic
    
    '如果需要按照高级筛选，可以使用以下代码
    'ws.Range("A1:B10").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=ws.Range("D1:D2"), CopyToRange:=ws.Range("F1:G1"), Unique:=False
    
End Sub