如何通过VBA筛选Excel中不含ABC、XYZ、DEF的数据？

问题场景 #

假设Excel工作表的N列（对应第14列）包含以下数据：ABC、XYZ K、XYZ、VAN、BUS，需要筛选后仅保留VAN和BUS，即排除所有包含ABC、XYZ或DEF的记录。

修正后的VBA代码 #

原代码存在语法错误（Operator:=xlAnd后缺少逗号，且代码未闭合），以下是可正常运行的版本：

Sub FilterExcludeKeywords()
    With Worksheets("Sheet1").Range("A1").CurrentRegion
        ' 清除已有筛选
        .AutoFilterMode = False
        ' 筛选第14列（N列），排除包含ABC、XYZ、DEF的记录
        .AutoFilter Field:=14, _
                    Criteria1:="<>*ABC*", Operator:=xlAnd, _
                    Criteria2:="<>*XYZ*", Operator:=xlAnd, _
                    Criteria3:="<>*DEF*"
    End With
End Sub

代码说明 #

• Worksheets("Sheet1")：指定目标工作表，可根据实际情况修改工作表名称
• .Range("A1").CurrentRegion：选中包含表头的整个数据区域，确保筛选覆盖所有有效数据
• Field:=14：对应N列（Excel列从A开始计数，A=1，N=14）
• "<>*ABC*"：使用通配符*匹配任意字符，<>*ABC*表示不包含ABC的记录
• Operator:=xlAnd：表示多个筛选条件需同时满足，即记录必须同时不包含ABC、XYZ和DEF才会被保留
• .AutoFilterMode = False：先清除已有筛选，避免多次运行代码导致筛选叠加

注意事项 #

1. 确保数据区域第一行是表头，否则筛选可能会错误隐藏表头
2. 如果需要筛选的列不是N列，修改Field参数对应的列序号即可
3. 若关键词数量超过3个，这种多条件筛选方式会受限，可改用高级筛选或循环判断的方式实现

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