在Excel-VBA中使用RegEx替换文本

Question

我在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] {2}:[0-9] {2}"和"[0-9] [0-9]:[0-9] [0-9]"模式,但没有改变.所以问题一定是我对VBA的误解(我是新手).

有人可以帮忙吗？

Answer 1

问题在于您的选择.

ActiveDocument.Range = _
RegEx.Replace(ActiveDocument.Range, "")

Excel命名空间中不存在ActiveDocument.我们有ActiveWorkbook或ThisWorkbook,但您现在需要的是选择.

使用a for each循环迭代当前选择中的所有单元格,如下所示:

Dim myCell As Range

For Each myCell In Selection.Cells
  myCell.Value = RegEx.Replace(myCell.Value, "")
Next