如何修改VBA正则匹配代码与公式，实现多单元格OR逻辑校验

问题说明 #

原本在K3单元格使用自定义函数=RegexMatch(C3,"\b[Mm]od(?!erate).*\b[Hh]\b")实现单单元格正则匹配，现在需要扩展为同时校验C3、F3、G3三个单元格，只要任一单元格匹配正则模式就返回True，否则返回False。之前尝试的=RegexMatch((C3,F3,G3),"\b[Mm]od(?!erate).*\b[Hh]\b")无效，因为原函数不支持多单元格/数组输入，下面是修改后的代码和公式方案。

修改后的自定义函数（RegexMatch） #

更新函数使其支持接收数组或多个单元格值，遍历所有输入内容执行OR逻辑匹配：

Public Function RegexMatch(inputVals, pat) As Boolean
    Static RE As Object
    Dim val As Variant
    
    If RE Is Nothing Then Set RE = CreateObject("vbscript.regexp")
    RE.Pattern = pat
    
    ' 遍历所有输入值，只要有一个匹配就返回True
    For Each val In inputVals
        If RE.Test(val) Then
            RegexMatch = True
            Exit Function
        End If
    Next val
    
    ' 所有值都不匹配则返回False
    RegexMatch = False
End Function

修改后的批量处理VBA过程 #

更新Sub过程，读取C、F、G三列的数据，逐行传入函数进行校验：

Sub Regex_with_three_cells()
    Dim ws As Worksheet, lr As Long, x As Long
    Dim r_in As Variant, r_out() As Boolean
    
    Set ws = ActiveSheet
    lr = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    ' 读取C、F、G三列的目标区域数据
    r_in = ws.Range("C3:C" & lr & ",F3:F" & lr & ",G3:G" & lr).Value
    
    ReDim r_out(1 To lr - 2, 1 To 1)
    
    For x = 1 To UBound(r_out)
        ' 构造当前行的三个单元格值数组传入函数
        r_out(x, 1) = RegexMatch(Array(r_in(x, 1), r_in(x, 2), r_in(x, 3)), "\b[Mm]od(?!erate).*\b[Hh]\b")
    Next x
    
    ws.Range("K3:K" & lr).Value = r_out
End Sub

工作表公式用法 #

现在可以直接使用以下公式，实现单个单元格的多列OR匹配校验：

=RegexMatch((C3,F3,G3),"\b[Mm]od(?!erate).*\b[Hh]\b")

下拉填充即可批量应用到整列。

修改要点说明 #

• 自定义函数扩展：新增遍历输入值的逻辑，支持数组/多单元格参数，满足OR匹配需求
• 批量过程优化：读取三列数据，逐行构造数组传入函数，提升批量处理效率
• 公式兼容性：现在直接传入多单元格数组即可生效，无需额外嵌套函数

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