Excel VBA:如何创建具有筛选器异常的自动筛选器？

Sub CreateAutoFilterWithException()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置工作表和筛选范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:D10")
    
    ' 启用自动筛选
    rng.AutoFilter
    
    ' 添加筛选条件
    With rng
        .AutoFilter Field:=1, Criteria1:=">10" ' 第1列大于10的条件
        .AutoFilter Field:=2, Criteria1:="<>Apple" ' 第2列不等于"Apple"的条件
    End With
    
    ' 添加筛选器异常
    On Error Resume Next
    rng.AutoFilter Field:=3, Criteria1:=">100" ' 第3列大于100的条件（异常，该列不存在）
    On Error GoTo 0
    
End Sub