Excel VBA实现多条件不区分大小写的包含式筛选需求

针对你需要筛选E列文本、保留包含"ALL"/"SUPER"/"EXTRA"任一内容（不区分大小写）的需求，提供两种VBA实现方案：

方案一：直接使用AutoFilter（推荐） #

利用Excel自带的筛选功能，结合通配符和数组条件实现，代码简洁高效：

Sub FilterEColumnByKeywords()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 如需指定工作表，改为Set ws = ThisWorkbook.Worksheets("你的表名")
    
    ' 清除现有筛选状态
    If ws.FilterMode Then ws.ShowAllData
    
    ' 定义包含关键词的通配符数组，*表示任意前后字符
    Dim keywords As Variant
    keywords = Array("*ALL*", "*SUPER*", "*EXTRA*")
    
    ' 对E列执行筛选，匹配数组中任一条件
    ws.Range("E1").AutoFilter Field:=5, _
        Criteria1:=keywords, _
        Operator:=xlFilterValues
End Sub

关键说明： #

• Excel的AutoFilter默认不区分大小写，无需额外设置即可匹配"Fall"、"Dextra"这类大小写混合内容
• Field:=5对应E列（A列为1，依次类推）
• 通配符*确保匹配包含关键词的文本，而非完全等于

方案二：用InStr逐行判断（备选） #

如果你需要更灵活的判断逻辑，可通过辅助列标记符合条件的行，再进行筛选：

Sub FilterWithInStr()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 清除现有筛选并删除旧辅助列（如果存在）
    If ws.FilterMode Then ws.ShowAllData
    On Error Resume Next
    ws.Columns("F").Delete
    On Error GoTo 0
    
    ' 添加辅助列标题
    ws.Range("F1").Value = "匹配标识"
    
    ' 逐行检查E列内容，用vbTextCompare实现不区分大小写匹配
    For i = 2 To lastRow
        If InStr(1, ws.Cells(i, "E").Value, "ALL", vbTextCompare) > 0 _
            Or InStr(1, ws.Cells(i, "E").Value, "SUPER", vbTextCompare) > 0 _
            Or InStr(1, ws.Cells(i, "E").Value, "EXTRA", vbTextCompare) > 0 Then
            ws.Cells(i, "F").Value = "是"
        Else
            ws.Cells(i, "F").Value = "否"
        End If
    Next i
    
    ' 筛选辅助列为"是"的行
    ws.Range("F1").AutoFilter Field:=6, Criteria1:="是"
    
    ' 可选：隐藏辅助列
    ' ws.Columns("F").Hidden = True
End Sub

使用步骤： #

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 右键左侧工作簿名称→插入→模块
3. 将上述任一代码粘贴到模块中，按需修改工作表名称
4. 按F5运行宏，或返回Excel通过「开发工具」→「宏」选择运行

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