Excel VBA正则表达式处理长文本失效问题求助

我参考Stack Overflow的反馈，在Excel VBA中编写了如下正则表达式：

With myRegEx
    '允许数字、字母、".,?&?|"
     .Pattern = "[^\x30-\x39\x61-\x7A\\x2E\x21\x26]+"
       '匹配ASCII表中从空格到波浪线的字符
       .Pattern = "[^\x20-\x7E]+"
       '匹配所有实例而非仅第一个
       '.Global = True
End With

代码逻辑为提取单元格值，移除所有不在十六进制32到7E范围内的字符，执行语句如下：

wsData.Range("A1") = myRegEx.Replace(wsData.Range("A1").Value, " ")

实际会遍历单元格集合（示例中省略了循环代码）。

这段代码在处理短文本时可正常移除非打印ASCII字符，但当单元格内容为长文本（如1500字符）时，正则表达式不生效，且无报错提示，完全不执行处理操作。我想了解：

1. 如何强制正则表达式检查整个单元格内容？
2. 该正则支持的最大字符数是多少？

一、强制正则检查整个单元格内容 #

你的代码核心问题是注释掉了.Global = True：

• VBA正则对象默认Global属性为False，仅会替换第一个匹配项。长文本中如果非打印字符不在文本开头，可能导致正则引擎匹配逻辑异常，表现为完全不执行处理。
• 必须取消注释.Global = True，让正则遍历并替换所有符合条件的字符：

With myRegEx
    .Pattern = "[^\x20-\x7E]+"
    .Global = True ' 启用全局匹配，覆盖整个文本范围
End With

额外建议开启.MultiLine = True，确保长文本包含换行时，正则能覆盖所有行的内容：

With myRegEx
    .Pattern = "[^\x20-\x7E]+"
    .Global = True
    .MultiLine = True
End With

二、VBA正则支持的最大字符数 #

VBA使用的是VBScript正则表达式5.5引擎，官方未明确标注最大处理字符数，但实际测试中：

• 处理几万甚至几十万字符的文本都能正常运行，1500字符远未触及上限。
• 你遇到的长文本失效问题，本质是Global属性未开启导致的，和字符长度无关。

补充优化：处理长文本时，建议先将单元格内容转为字符串变量再操作，避免直接读写Range对象的性能损耗：

Dim cellText As String
cellText = wsData.Range("A1").Value
cellText = myRegEx.Replace(cellText, " ")
wsData.Range("A1").Value = cellText

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