我的目标:让中国的大学生走出校门的那一刻就已经具备这些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 匹配一个数字字符,
代码如下:
- Set regx = CreateObject("vbscript.regexp")
复制代码- Cells(n + 1, 2).Value = regx.Replace(Cells(n + 1, 1).Value, "")
复制代码- Loop Until Cells(n + 1, 1).Value = ""
复制代码 同理,\D 匹配一个非数字字符,我们可以通过“\D”来匹配汉字,把汉字替换成空,得到数字。
代码如下:
- Set regx = CreateObject("vbscript.regexp")
复制代码- Cells(n + 1, 3).Value = regx.Replace(Cells(n + 1, 1).Value, "")
复制代码- Loop Until Cells(n + 1, 1).Value = ""
复制代码 两段代码的运行结果如下:
如果是字母和汉字放在一个单元格里,我们可以用\W 匹配任何非单词字符,这样就能匹配出字母,替换为空即可得到汉字部分。
案例2:规范格式
\s 匹配任何空白字符,包括空格、制表符、换页符等等,我们把换行符和空格匹配出来并且全部替换为“-”即可。
代码如下:
- Set regx = CreateObject("vbscript.regexp")
复制代码- Cells(n + 1, 2).Value = regx.Replace(Cells(n + 1, 1).Value, "-")
复制代码- Loop Until Cells(n + 1, 1).Value = ""
复制代码 通过这节课,我们了解了什么是元字符,并且初步体会到了正则表达式的强大之处,后面我们逐步地讲解更加复杂的匹配。
本节的分享就到这里,鹏哥祝大家每天都有进步。
加入米宏Office培训群,让学习不再孤单!
从基础操作到VBA,
两杯咖啡的钱,
换取一份如此详细的Excel视频资料,
你还在犹豫?
欲购从速,联系微信号:527240310
每天进步一点,每天提升一点!
|
|