Excel VBA文本过滤问题：含Moderate的合规行被误过滤

问题背景 #

需要实现Excel文本过滤：筛选包含Mod*后接单个特定字符（如“H”）的内容（例如“Mod h”“Module x H”等）。初始过滤会混入含“Moderate”“Moderately”的无效行，添加排除*Moderat*的条件后，又误过滤了同时包含“Moderate”和合规内容的行（如“Moderate xxx Mod H”）。

测试样本 #

预期结果 #

当前代码的问题 #

原代码使用*Mod*H*和<>*Moderat*的与条件，导致只要行内包含“Moderat”就会被排除，完全忽略了该行可能同时存在合规的Mod*H内容的情况，造成误过滤。

修正后的VBA代码 #

Option Explicit
Option Compare Text

Sub Filter_Criteria_Fixed()
    Dim ws As Worksheet
    Dim LRow As Long, i As Long
    Dim regex As Object
    Dim targetChar As String
    
    ' 设置需要匹配的目标字符，这里为H
    targetChar = "H"
    Set ws = ActiveSheet
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 正则规则：匹配Mod开头（含Module这类变体），可接空格/标点，最后紧跟目标字符
    regex.Pattern = "\bMod\w*\s*[^\w]*" & targetChar
    regex.IgnoreCase = True ' 不区分大小写
    
    ' 清除现有筛选状态
    If ws.AutoFilterMode Then ws.AutoFilter.ShowAllData
    
    LRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 逐行检查并设置显示/隐藏
    For i = 2 To LRow ' 假设第1行为表头
        Dim cellText As String
        cellText = ws.Cells(i, 3).Value ' 针对第3列过滤，与原代码保持一致
        
        ' 判断当前行是否符合合规模式
        Dim isMatch As Boolean
        isMatch = regex.Test(cellText)
        
        ' 隐藏不符合条件的行
        ws.Rows(i).Hidden = Not isMatch
    Next i
    
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollRow = 1
End Sub

代码说明 #

1. 精准正则匹配：用\bMod\w*\s*[^\w]*H规则，只识别Mod开头（包括Module这类衍生词）后接空格/标点，最终紧跟目标字符H的内容，自动避开“Moderate”这类无效词。
2. 保留混合内容行：只要行内存在合规匹配，即使包含“Moderate”也会被保留，解决了原代码的误过滤问题。
3. 大小写兼容：通过Option Compare Text和正则的IgnoreCase属性，确保mod h、Mod H等不同大小写的内容都能被识别。

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