除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請保留鏈接: http://www./cat4/483.html，VBA交流群273624828。

這節(jié)繼續(xù)來講下正則表達式的基本符號。

[xyz]	字符集合。匹配所包含的任意一個字符。例如，“[abc]”可以匹配“plain”中的“a”。
[^xyz]	負值字符集合。匹配未包含的任意字符。例如，“[^abc]”可以匹配“plain”中的“plin”。
[a-z]	字符范圍。匹配指定范圍內(nèi)的任意字符。例如，“[a-z]”可以匹配“a”到“z”范圍內(nèi)的任意小寫字母字符。 注意:只有連字符在字符組內(nèi)部時,并且出現(xiàn)在兩個字符之間時,才能表示字符的范圍; 如果出字符組的開頭,則只能表示連字符本身.
[^a-z]	負值字符范圍。匹配任何不在指定范圍內(nèi)的任意字符。例如，“[^a-z]”可以匹配任何不在“a”到“z”范圍內(nèi)的任意字符。

這節(jié)來看下中括號[]的用法。中括號就是對其中的值進行枚舉匹配。[abc]表示既可以匹配a，又可以b還可以c，前面加個符號^就表示匹配除abc以外的任意字符或數(shù)字，如果字符是有規(guī)律的也可以用[a-d]，[1-9]這種形式，表示匹配a到d的字符，[1-9]表示匹配1至9的數(shù)字。

看下例子

Sub Macro()
Dim str, regx
str = "學挖123掘機aaaaa哪b家Maa強"
Set regx = CreateObject("VBScript.RegExp")
With regx
.Global = True
.Pattern = "[abM]"
str = .Replace(str, "")
End With
Debug.Print str
End Sub

上面的代碼匹配a,b,M三個字符中的任意一個都可以，所以結(jié)果就是“學挖123掘機哪家強”。

.Pattern = "[^abM]"

上面的模式表示匹配既不是a又不是b又不是M的任意字符，所以最后只剩下了“aaaaabMaa”。

Sub Macro()
Dim str, regx
str = "學挖掘機abcdABCD哪b家Eaa強"
Set regx = CreateObject("VBScript.RegExp")
With regx
.Global = True
.Pattern = "[a-d]"
str = .Replace(str, "")
End With
Debug.Print str
End Sub

上面的代碼匹配a到d的所有字符，即相當于[abcd]，所以結(jié)果是“學挖掘機ABCD哪家E強”

.Pattern = "[a-dA-E]"

上面的代碼匹配小寫abcd和大寫ABCDE，注意兩者之間是沒有逗號的，最后結(jié)果是“學挖掘機哪家強”，那么仿照這個如果要匹配1，2，3，6，7，8，9就可以寫成.Pattern = "[1-36-9]"，注意3和6之間沒有任何符號。