小编aka*_*ano的帖子

我在Excel中有数据如下(这里有一行 - Excel中的一个单元格):

07 July 2015 12:02 – 14 July 2015 17:02
12 August 2015 22:02 – 01 September 2015 11:02

我想写一个宏,它将删除用户选择(多个单元格)中的所有时间信息(例如"12:02"),如下所示:

07 July 2015 – 14 July 2015
12 August 2015 – 01 September 2015

当所有"时间"相似("00:00")这个宏完美地工作时:

Sub delete_time()     
    Selection.Replace What:="00:00", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

但是时间信息不再统一,所以我决定使用RegEx.问题是我找不到在VBA上执行此操作的正确方法.我试过这个宏:

Sub delete_time()
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    On Error Resume Next

    RegEx.Global = True
    RegEx.Pattern = "\d\d\:\d\d"
    ActiveDocument.Range = _
        RegEx.Replace(ActiveDocument.Range, "")
End Sub

但它没有用.还尝试了"[0-9] …