VBA中正则表达式之元字符

我的目标：让中国的大学生走出校门的那一刻就已经具备这些Office技能，让职场人士能高效使用Office为其服务。支持鹏哥，也为自己加油！

上一节中我们讲过了正则表达式的基础语法，举了一个例子，把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 匹配任何空白字符，包括空格、制表符、换页符等等，我们把换行符和空格匹配出来并且全部替换为“-”即可。

代码如下：

[/code][code]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培训群，让学习不再孤单！

从基础操作到VBA，
两杯咖啡的钱，
换取一份如此详细的Excel视频资料，
你还在犹豫？
欲购从速，联系微信号：527240310
每天进步一点，每天提升一点！