使用Evaluate结合正则表达式处理单元格区域，解决#VALUE!报错问题

你的代码出现#VALUE!的核心原因是Evaluate的公式字符串拼接错误，同时Offset(0, -8)的写法不够直观，容易因列位置变动出错。以下是修正方案：

修正后的完整代码 #

Public Function RegexMatch(str As Variant, pat As String) As Boolean
    With CreateObject("vbscript.regexp")
        .Pattern = pat
        RegexMatch = .Test(str)
    End With
End Function

Sub Evaluate_Regex()
    Dim ws As Worksheet, rng As Range, LRow As Long
    Dim sourceRng As Range ' 存储C列目标数据范围
    
    Set ws = ActiveSheet
    ' 若C列数据行数与A列一致，可保留原LRow获取逻辑；否则建议基于C列取最后一行
    LRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
    
    Set rng = ws.Range("K3:K" & LRow)
    Set sourceRng = ws.Range("C3:C" & LRow) ' 直接引用C列，替代Offset写法
    
    ' 修正Evaluate字符串拼接：补全参数分隔逗号，正确转义引号
    rng.Value = Evaluate("INDEX(RegexMatch(" & sourceRng.Address & ",""" & "\b[Mm]od(?!erate).*\b[hH]\b" & """),0)")
End Sub

关键修正点说明 #

• 修复Evaluate字符串拼接错误：
  原代码中RegexMatch的两个参数之间缺少逗号，且正则表达式的引号转义逻辑错误。修正后通过双引号""完成VBA字符串内的引号转义，确保参数正确传递给自定义函数。
• 替换Offset为直接引用：
  用ws.Range("C3:C" & LRow)替代rng.Offset(0, -8)，直接明确指向C列数据范围，避免因列插入/删除导致偏移量失效，代码可读性更强。
• 优化最后一行判断（可选）：
  原代码基于A列获取最后一行，若C列数据行数与A列不一致，改成基于C列获取能确保覆盖所有需要处理的单元格。

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