Function replacestr(astr,bstr,patrn) '正则表达式
Dim regEx,str1 ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
Replacestr = regEx.Replace(astr,bstr) ' 作替换。
set regEx = nothing
End Function

这里我没写patrn参数的写法,以后会写出来地,呵呵请关注
本文介绍了一种使用VBA进行字符串替换的方法,通过正则表达式实现灵活的匹配和替换操作。此方法适用于不区分大小写的场景。
1407

被折叠的 条评论
为什么被折叠?



