VBA如何实现字符串数组反向AutoFilter筛选以删除不符合条件行

可行解决方案 #

Excel原生自动筛选的不等于条件最多仅支持2个，所以用<>拼接数组的方式确实无法生效，下面提供两个可落地的实现方案：

方案1：复用现有筛选逻辑，直接删除隐藏行（推荐，适配绝大多数场景） #

你原有代码已经把需要保留的行筛选为可见状态，只需批量删除隐藏行即可，无需调整筛选规则：

Dim dataRng As Range, delRng As Range, i As Long
' 执行原有筛选，保留符合数组条件的行
ActiveSheet.Range("A1").AutoFilter Field:=8, Criteria1:=arrSubmitters, Operator:=xlFilterValues
' 定位排除表头的完整数据区域
Set dataRng = ActiveSheet.Range("A2", ActiveSheet.Range("A2").End(xlDown).End(xlToRight))
' 合并所有隐藏行到待删除范围，避免逐行删除卡顿
For i = 1 To dataRng.Rows.Count
    If dataRng.Rows(i).Hidden Then
        If delRng Is Nothing Then
            Set delRng = dataRng.Rows(i)
        Else
            Set delRng = Union(delRng, dataRng.Rows(i))
        End If
    End If
Next
' 一次性删除所有目标行
If Not delRng Is Nothing Then delRng.EntireRow.Delete
' 清除筛选状态
ActiveSheet.AutoFilterMode = False

方案2：临时辅助列法（适合10万行以上的超大表，性能更优） #

数据量较大时遍历行效率偏低，可以新增临时辅助列做判断后再筛选删除：

Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
' 插入临时判断列（示例用第I列，可根据实际调整列号）
ActiveSheet.Range("I1").Value = "临时判断列"
' 匹配数组元素，返回是否属于要保留的范围，字符串数组请取消下一行注释、注释当前公式行
ActiveSheet.Range("I2:I" & lastRow).Formula = "=ISNUMBER(MATCH(H2,{" & Join(arrSubmitters, ",") & "},0))"
' ActiveSheet.Range("I2:I" & lastRow).Formula = "=ISNUMBER(MATCH(H2,{""" & Join(arrSubmitters, """,""") & """},0))"
' 公式转值避免筛选异常
ActiveSheet.Range("I2:I" & lastRow).Value = ActiveSheet.Range("I2:I" & lastRow).Value
' 筛选需要删除的行
ActiveSheet.Range("A1:I" & lastRow).AutoFilter Field:=9, Criteria1:="FALSE"
' 批量删除可见行
ActiveSheet.Range("A2:I" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
' 删除临时辅助列
ActiveSheet.Columns("I").Delete
' 清除筛选状态
ActiveSheet.AutoFilterMode = False

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