Excel VBA：如何用Autofilter精准筛选tichava并排除tichaval

不用硬写固定数组也能解决，给你几个更灵活的实用方案：

方案1：通配符+逻辑或组合筛选 #

利用Excel自动筛选的通配符和xlOr操作符，直接覆盖三种匹配场景（单独的tichava、前面带, 的、后面带,的）：

Sub FilterTichava()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 替换成你的目标工作表
    
    ' 清除现有筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 执行筛选：覆盖所有包含独立tichava的情况
    ws.Range("A1").AutoFilter Field:=1, _
        Criteria1:="tichava", _
        Criteria2:="*, tichava*", _
        Criteria3:="*tichava,*", _
        Operator:=xlOr
    
    ' 统计可见行数（排除表头）
    Dim visibleCount As Long
    On Error Resume Next ' 处理无匹配结果的异常
    visibleCount = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) _
        .SpecialCells(xlCellTypeVisible).Count
    On Error GoTo 0
    
    MsgBox "可见行数：" & visibleCount
End Sub

方案2：高级筛选（精准匹配独立项） #

高级筛选支持公式条件，通过给单元格前后补逗号的方式，确保匹配的是完整的tichava项，不用枚举所有组合：

Sub AdvancedFilterTichava()
    Dim ws As Worksheet, criteriaRange As Range
    Set ws = ActiveSheet
    
    ' 清除现有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 临时创建条件区域（选工作表空白区域即可，这里用Z1:Z2）
    Set criteriaRange = ws.Range("Z1:Z2")
    criteriaRange.Clear
    criteriaRange(1).Value = "筛选条件" ' 表头任意填写
    ' 公式逻辑：给单元格内容前后加逗号，搜索", tichava,"，确保匹配独立项
    criteriaRange(2).Formula = "=ISNUMBER(SEARCH("", tichava,"", "", &A2& ""))" ' A2对应数据列的第一个数据行
    
    ' 执行高级筛选
    ws.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=criteriaRange
    
    ' 统计可见行数
    Dim visibleCount As Long
    On Error Resume Next
    visibleCount = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row) _
        .SpecialCells(xlCellTypeVisible).Count
    On Error GoTo 0
    
    MsgBox "可见行数：" & visibleCount
    
    ' 清理临时条件区域
    criteriaRange.Clear
End Sub

方案3：正则表达式标记筛选（复杂场景适用） #

如果数据分隔符不只有逗号，或格式更复杂，用正则匹配完整的tichava单词，先标记再筛选：

Sub RegexFilterTichava()
    Dim ws As Worksheet, rng As Range, cell As Range
    Dim regex As Object
    Set ws = ActiveSheet
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 正则规则：匹配独立的tichava单词（支持逗号、空格、单元格首尾作为边界）
    regex.Pattern = "\btichava\b"
    regex.IgnoreCase = False ' 不需要区分大小写的话改成True
    
    ' 在B列添加匹配标记（假设数据在A列）
    ws.Range("B:B").ClearContents
    ws.Range("B1").Value = "匹配标记"
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    For Each cell In rng
        If regex.Test(cell.Value) Then
            cell.Offset(0, 1).Value = "符合"
        End If
    Next cell
    
    ' 筛选标记列的"符合"项
    ws.Range("B1").AutoFilter Field:=2, Criteria1:="符合"
    
    ' 统计可见行数
    Dim visibleCount As Long
    On Error Resume Next
    visibleCount = rng.SpecialCells(xlCellTypeVisible).Count
    On Error GoTo 0
    
    MsgBox "可见行数：" & visibleCount
    
    ' 可选：筛选完成后清理标记列
    ' ws.Range("B:B").ClearContents
End Sub

如果只是简单的逗号分隔场景，方案1的通配符组合足够高效；追求精准性的话，方案2的高级筛选是最优选择。

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