如何在ExcelVBA中使用正则表达式

问题描述

精选答案

正则表达式进行模糊替换的例子代码：

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 rvEnd Sub