上一节中我们讲过了正则表达式的基础语法，举了一个例子，把A列数据各个部门中的门字去掉，当时写的代码中：
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "门"
End With
.Pattern = "门"，此表达式中的“门”字就是一个普通字符，如果表达式中只是用普通字符的话，那我们用查找功能完全可以匹配目标字符串，为何还要写代码呢？所以正则表达式中还有另外一种字符，叫做元字符。
比如我们在查找时通常会用通配符“*”表示任意字符，在正则表达式中也有一些固定的字符，他们可以表达某一类型的字符，以实现强大的匹配能力。
下面例举一些常用的元字符：（注意大小写之分）
\d 匹配一个数字字符
\D 匹配一个非数字字符
\w 匹配包括下划线的任何单词字符。[A-Za-z0-9_]
\W 匹配任何非单词字符
\s 匹配任何空白字符，包括空格、制表符、换页符等等
\S 匹配任何非空白字符
\b 匹配一个单词边界，也就是指单词和空格间的位置
\B 匹配非单词边界
\n 匹配一个换行符
\r 匹配一个回车符
\t 匹配一个制表符
. 匹配除"\n"之外的任何单个字符。
我们通过具体的例子来体会下这些元字符的作用。
案例1：提取字符串
上图中A列数据把产品和单价写在一起了，有的是单价在产品前面，有的是单价在产品的后面，现在想把他们分开到两列。
用函数也可以做 但挺麻烦的。如果用正则表达式，只要把每个单元格中的数字匹配出来，然后替换成空就得到了汉字部分了，反之只要把汉字匹配出来替换为空就得到了数字。
前面我们讲过，在元字符中，\d 匹配一个数字字符，我们看下关键代码：
Sub 提取汉字()
Dim regx As Object, n%
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "\d" '匹配数字
End With
Do
n = n 1
Cells(n 1, 2).Value = regx.Replace(Cells(n 1, 1).Value, "")
Loop Until Cells(n 1, 1).Value = ""
End Sub
同理，\D 匹配一个非数字字符，我们可以通过“\D”来匹配汉字，把汉字替换成空，得到数字。代码如下：
Sub 提取数字()
Dim regx As Object, n%
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "\D"
End With
Do
n = n 1
Cells(n 1, 3).Value = regx.Replace(Cells(n 1, 1).Value, "")
Loop Until Cells(n 1, 1).Value = ""
End Sub
两段代码的运行结果如下：
如果是字母和汉字放在一个单元格里，我们可以用\W 匹配任何非单词字符，这样就能匹配出字母，替换为空即可得到汉字部分。
案例2：规范格式
\s 匹配任何空白字符，包括空格、制表符、换页符等等，我们把换行符和空格匹配出来并且全部替换为“-”即可。
代码如下：
Sub 规范格式()
Dim regx As Object, n%
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "\s"
End With
Do
n = n 1
Cells(n 1, 2).Value = regx.Replace(Cells(n 1, 1).Value, "-")
Loop Until Cells(n 1, 1).Value = ""
End Sub
通过这节课，我们了解了什么是元字符，并且初步体会到了正则表达式的强大之处，后面我们逐步地讲解更加复杂的匹配。
转自：米宏Office
,
