让我来帮你揪出这个问题的根源——你的正则表达式和替换逻辑刚好把你想保留的数字给“吃掉”了！

为什么数字会丢失？ #

你用的正则模式是\d(AM|PM)，这个模式会匹配紧跟AM/PM的单个数字（在你的测试字符串"1:05PM"里，它匹配的是"5PM"这部分）。然后你设置的替换字符串是 $1，这里的$1指代的是捕获到的AM或PM。

也就是说，当执行替换时，整个匹配到的5PM被替换成了 PM——原来的数字"5"就这样被丢弃了，所以最终输出变成了"1:0 PM"。

两种修正方案 #

方案1：捕获数字并保留它

修改正则模式，把前面的数字也放进捕获组，然后在替换时同时引用数字和AM/PM：

Sub test()
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    Dim strPattern As String: strPattern = "(\d)(AM|PM)" ' 把数字也加入捕获组
    Dim strReplace As String: strReplace = "$1 $2" ' 保留数字，在数字和AM/PM之间加空格
    Dim target As String: target = "1:05PM"
    
    With regex
        .Global = True
        .IgnoreCase = False
        .Pattern = strPattern
    End With
    
    If regex.test(target) Then
        Debug.Print regex.Replace(target, strReplace) ' 输出：1:05 PM
    End If
End Sub

方案2：使用正向预查（不消耗数字）

如果你不想修改捕获组，也可以用正向预查来匹配AM/PM的前置位置，这样正则不会“消耗”前面的数字，只是在正确的位置插入空格：

Sub test()
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    Dim strPattern As String: strPattern = "(?=AM|PM)" ' 正向预查，匹配AM/PM前的位置
    Dim strReplace As String: strReplace = " " ' 插入空格
    Dim target As String: target = "1:05PM"
    
    With regex
        .Global = True
        .IgnoreCase = False
        .Pattern = strPattern
    End With
    
    If regex.test(target) Then
        Debug.Print regex.Replace(target, strReplace) ' 输出：1:05 PM
    End If
End Sub

这两种方案都能得到你想要的"1:05 PM"结果，你可以根据自己的需求选择~

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