Excel VBA：Autofilter排除多值代码异常问题求助

你这段代码的核心问题是每次循环调用AutoFilter都会完全重置筛选条件：第一次循环设置排除CS，第二次循环直接把筛选条件替换成了排除IS，之前的排除规则被覆盖，导致CS又重新变为可见状态。Excel原生AutoFilter不支持通过循环叠加多个<>排除条件。

以下两种方法可以实现多值排除的需求：

方法1：反向筛选（推荐） #

先筛选出需要排除的值，再隐藏对应行，最后取消筛选保留隐藏效果：

Sub filterValues()
    Dim excludeValues As String
    excludeValues = "CS,IS"
    Dim arrValues() As String
    arrValues = Split(excludeValues, ",")
    
    ' 清空已有筛选，避免冲突
    If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
    
    ' 筛选出要排除的目标值
    Range("A1").AutoFilter Field:=3, Criteria1:=arrValues, Operator:=xlFilterValues
    ' 隐藏筛选出的行（跳过表头）
    Range("A2", Range("C" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
    
    ' 取消筛选，仅保留行隐藏效果
    ActiveSheet.AutoFilterMode = False
End Sub

方法2：高级筛选 #

通过构造条件区域实现精准多值排除，适合复杂筛选场景：

Sub AdvancedFilterExclude()
    Dim excludeValues As String
    excludeValues = "CS,IS"
    Dim arrValues() As String
    arrValues = Split(excludeValues, ",")
    Dim i As Integer
    
    ' 在空白区域构造筛选条件（表头需与目标列一致）
    Range("D1").Value = Range("C1").Value
    For i = 0 To UBound(arrValues)
        Range("D" & i + 2).Value = "<>" & arrValues(i)
    Next i
    
    ' 执行高级筛选
    Range("A1:C" & Rows.Count).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D1:D" & UBound(arrValues) + 2)
    
    ' 清理临时条件区域（可选）
    Range("D1:D" & UBound(arrValues) + 2).ClearContents
End Sub

补充说明 #

• 方法1操作简洁，适合中小数据量场景；
• 方法2逻辑更严谨，适配大数据量或复杂筛选规则；
• 执行筛选前清空已有筛选，能避免旧条件干扰新规则。

内容的提问来源于stack exchange，提问作者Shinaj