在单元格

Question

好吧所以我一直在使用Regex来处理目录文件中的一些清理工作。我现在遇到的问题是我将使用的代码替换整个模式。

Function CorrectTH(r As String) As String
 With CreateObject("VBScript.RegExp")
    .Global = True
    .IgnoreCase = False
    .Pattern = "[0-9]+TH\b"
    CorrectTH = .Replace(r, "th")
 End With
End Function

如果我遇到类似

的内容

＆＃34; 9TH ave＆amp; Hill St＆＃34;

我的替换会让我回来

＆＃34; ave＆amp; Hill St＆＃34;

显然，我希望在此之前保留任何数字。在这种情况下，我想返回

＆＃34; 9th ave＆amp;希尔街＆＃34;

只是改变一些模式的技巧？