VBA正则表达式处理时间格式异常：无法移除秒数与空格

先上能直接运行的正确代码，再拆解你可能踩的坑：

Sub CleanTimeFormat()
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 核心配置：全局匹配（处理单元格内多个时间）+ 忽略大小写（适配am/pm小写场景）
    regEx.Global = True
    regEx.IgnoreCase = True
    
    ' 正则模式：捕获两个关键分组，跳过要删除的":00 "部分
    regEx.Pattern = "(\d{1,2}:\d{2}):00 (\w{2})"
    
    ' 遍历选中的单元格范围
    Dim cell As Range
    For Each cell In Selection
        If cell.Value <> "" Then
            ' 注意用cell.Text获取显示文本，避免日期格式转数值的问题
            cell.Value = regEx.Replace(cell.Text, "$1$2")
        End If
    Next cell
End Sub

你大概率踩的几个错误点： #

1. 未开启全局匹配：VBScript.RegExp默认Global=False，只会替换单元格内第一个匹配项，必须手动设为True才能批量处理。
2. 正则模式匹配不精准：
   • 漏了:00后面的空格：原格式中:00和AM之间有空格，模式里没写的话根本匹配不到目标内容；
   • 小时位数没限制：用\d+可能匹配多余数字，\d{1,2}刚好适配1-2位小时（比如7或14）。
3. 单元格格式问题：如果单元格是日期时间格式（而非文本），直接取cell.Value拿到的是Excel的日期数值，必须用cell.Text获取显示的字符串，正则才能匹配到“7:30:00 AM”格式。
4. 分组引用错误：替换时要确保用$1、$2对应捕获的分组，编号写错或没分组的话，替换逻辑直接失效。

正则模式拆解： #

• (\d{1,2}:\d{2})：捕获1-2位数字（小时）+冒号+2位数字（分钟），比如“7:30”或“10:45”；
• :00 ：精准匹配要移除的“:00 ”部分（注意末尾的空格）；
• (\w{2})：捕获AM/PM（开启IgnoreCase后也能匹配am/pm）。

替换时通过$1$2把两个捕获的部分拼接，就得到了“7:30AM”的目标格式。

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