Excel中RegExpMatch匹配5个及以上字符的问题求助

问题根源 #

1. 正则表达式逻辑错误：你使用的^[\S]{5}仅匹配以5个非空白字符开头的内容，而非“包含5个及以上非空白字符”，这直接导致大量不符合条件的单元格被误判为TRUE。
2. VBA函数初始化异常：代码开头的RegExpMatch = arRes在数组未初始化时就赋值，会引发潜在的返回值错误。
3. 匹配逻辑偏离需求：当前函数仅逐个测试单元格的正则匹配，但正则本身无法实现“检测5个及以上非空白字符”的核心需求。

修复步骤 #

1. 修正正则表达式 #

根据需求（匹配包含5个及以上非空白字符的单元格），将公式中的正则替换为：
[\S]{5,}

• 解释：[\S]匹配任意非空白字符，{5,}表示匹配5次及以上。
  如果你的需求是整个单元格内容均为非空白且长度≥5，则使用：
  ^[\S]{5,}$

2. 修复VBA自定义函数 #

移除未初始化数组的错误赋值行，优化逻辑如下：

Public Function RegExpMatch(input_range As Range, pattern As String, Optional match_case As Boolean = True) As Variant
    Dim arRes() As Variant
    Dim iInputCurRow, iInputCurCol, cntInputRows, cntInputCols As Long
    Dim regEx As Object

    On Error GoTo ErrHandl

    ' 初始化正则对象
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = pattern
    regEx.Global = True
    regEx.MultiLine = True
    regEx.IgnoreCase = Not match_case ' 简化大小写判断逻辑

    ' 获取输入范围的行列数
    cntInputRows = input_range.Rows.Count
    cntInputCols = input_range.Columns.Count
    ReDim arRes(1 To cntInputRows, 1 To cntInputCols)

    ' 逐个单元格执行匹配测试
    For iInputCurRow = 1 To cntInputRows
        For iInputCurCol = 1 To cntInputCols
            arRes(iInputCurRow, iInputCurCol) = regEx.Test(input_range.Cells(iInputCurRow, iInputCurCol).Value)
        Next
    Next

    RegExpMatch = arRes
    Exit Function

ErrHandl:
    RegExpMatch = CVErr(xlErrValue)
End Function

3. 正确调用公式 #

在C1单元格输入公式（Excel 365/2021直接回车，旧版本需按Ctrl+Shift+Enter作为数组公式输入）：
=RegExpMatch(A1:B1,"[\S]{5,}")
公式会自动填充C1、D1单元格，分别对应A1、B1的匹配结果。

验证效果 #

调整后，单元格内容包含5个及以上非空白字符时返回TRUE，否则返回FALSE，完全符合你期望的匹配逻辑。

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