上一节中我们讲过了正则表达式的基础语法,举了一个例子,把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:提取字符串

excel可以串字符的函数是(EXCEL正则表达式之元字符)(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

两段代码的运行结果如下:

excel可以串字符的函数是(EXCEL正则表达式之元字符)(2)

如果是字母和汉字放在一个单元格里,我们可以用\W 匹配任何非单词字符,这样就能匹配出字母,替换为空即可得到汉字部分。

案例2:规范格式

excel可以串字符的函数是(EXCEL正则表达式之元字符)(3)

\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

,