正则表达式进行模糊替换的例子代码:
Sub TestReplace()
Dim ss, re, rv
ss = "12苏5a中国人民一二d三"& vbNewLine &"egg其d中国人民四a1五六"& vbNewLine&"凡dsf事都美国纽约AAFa分"& vbNewLine&"发的事都美国纽约A分Fa分" & vbNewLine
Set re = New RegExp
re.Pattern = "^\S+(中国人民|美国纽约)\S+$"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
rv = re.Replace(ss, "$1")
MsgBox rv
End Sub