我来帮你搞定这个正则的坑！你现在的核心问题是用了\D（非数字）作为前置条件，导致数字后面的-:\*_/;,这些字符根本匹配不到——毕竟数字后面的字符前面是数字，不符合\D的要求嘛。咱们针对你的三个需求，重新调整正则和代码：

需求回顾 #

• 在字符 -:\*_/;, 后插入空格
• 不拆分日期（如05/05/05）和时间（如05:05:05）格式里的/和:
• 排除a/c、w/d等特定词汇里的分隔符

问题分析 #

原正则里的\D限制了目标字符前面必须是非数字，这直接导致像858701/这种数字后的/无法被匹配。我们需要去掉这个限制，换成负向预查来精准排除日期时间的情况，同时保留特定词汇的排除规则。

解决方案 #

调整后的正则表达式 #

(?!a\/c|w\/d|m\/s|s\/w|m\/o)([-*_\\;,]|(?:(?<!\d)[:\/]|[:\/](?!\d)))

正则各部分解释：

• (?!a\/c|w\/d|m\/s|s\/w|m\/o)：正向预查，确保当前位置不是这些特定词汇的一部分，避免误替换它们里面的/
• [-*_\\;,]：匹配除:和/之外的所有目标字符，这些字符不管前后是否为数字，都需要加空格（只要不在特定词汇里）
• (?:(?<!\d)[:\/]|[:\/](?!\d))：非捕获组，专门处理:和/：
  • (?<!\d)[:\/]：匹配前面不是数字的:或/
  • [:\/](?!\d)：匹配后面不是数字的:或/
    这就完美排除了日期（数字/数字）和时间（数字:数字）里的分隔符，不会拆分它们。

修改后的VBA代码 #

Private Function formatColon(oldString As String) As String
    Dim reg As New RegExp
    reg.Global = True
    ' 应用新的正则模式
    reg.Pattern = "(?!a\/c|w\/d|m\/s|s\/w|m\/o)([-*_\\;,]|(?:(?<!\d)[:\/]|[:\/](?!\d)))"
    Dim newString As String
    newString = reg.Replace(oldString, "$1 ")
    formatColon = XtraspaceKill(newString)
End Function

测试效果 #

把你的测试字符串JET*AIRWAYS\INDIA/858701/IDBI 05/05/05;05:05:05 a/c传入这个函数，会得到你想要的结果：
JET* AIRWAYS\ INDIA/ 858701/ IDBI 05/05/05; 05:05:05 a/c

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