excel可以串字符的函数是（EXCEL正则表达式之元字符）

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

,