在工作的過程中，有時候為了批量處理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

當然，往往在實際的應用中，還要根據具體的情況去修改程序。

?

轉載于:https://www.cnblogs.com/candyhuang/archive/2011/09/21/2184058.html

總結

以上是生活随笔為你收集整理的用Excel的VBA实现文本匹配与替换的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。