通过VBA在Excel中查找有关数据筛选选项的建议

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为您的工作表名称
    
    '启用筛选
    ws.Range("A1").AutoFilter
    
    '筛选数据
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="条件1" '替换为您的筛选条件
    
    '禁用筛选
    ws.AutoFilterMode = False
End Sub

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为您的工作表名称
    
    '定义筛选条件范围
    Dim criteriaRange As Range
    Set criteriaRange = ws.Range("D1:D2") '替换为您的筛选条件范围
    
    '定义筛选结果范围
    Dim resultRange As Range
    Set resultRange = ws.Range("A5:B10") '替换为您的筛选结果范围
    
    '执行筛选
    ws.Range("A1:B10").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteriaRange, CopyToRange:=resultRange
End Sub

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为您的工作表名称
    
    '查找满足条件的最大值
    Dim maxValue As Double
    maxValue = WorksheetFunction.Max(ws.Range("A1:A10")) '替换为您的数据范围
    
    '查找满足条件的最小值
    Dim minValue As Double
    minValue = WorksheetFunction.Min(ws.Range("A1:A10")) '替换为您的数据范围
    
    '其他常见的WorksheetFunction函数包括Average、Count、Sum等
End Sub