用Excel的VBA实现文本匹配与替换

在工作的过程中，有时候为了批量处理Excel，不可避免会写一些VBA小程序，而在规范数据格式方面，经常会用正则表达式：

以下是我自己经常会用到的小程序：

一、文本匹配

Function bTest(ByVal s As String, ByVal p As String) As Boolean
Dim re
Set re = CreateObject("VBScript.RegExp")

re.IgnoreCase = False　'设置是否匹配大小写
re.Pattern = p
bTest = re.Test(s)
End Function

二、文本替换

Function StrReplace(s As String, p As String, r As String) As String

Dim re
Set re = CreateObject("VBScript.RegExp")

re.IgnoreCase = True
re.Global = True
re.Pattern = p
StrReplace = re.Replace(s, r)

End Function

当然，往往在实际的应用中，还要根据具体的情况去修改程序。