正则表达式（RegEx）是一系列字符，定义搜索模式，用于查找字符串中特定的字符模式。

VBA正则表达式的语法与其他语言（如Python）中使用的语法有较大的区别，主要是因为VBA的RegEx对象带有可选参数，因此有时必须指定这些参数以获得与在其他语言中使用标准的正则表达式语法相同的结果。

VBA正则表达式语法基础

正则表达式搜索模式是由一个或多个下列元素组成的字符序列：

元字符

元字符是字符或字符组合，在正则表达式模式中具有特殊含义。元字符可以匹配输入文本中的几个不同字符，甚至可以表示字符以外的其他字符。下面是需要熟练掌握的一些元字符。

通配符。未转义的句点匹配任意字符，但新行除外。

“字符串或者行的开头”或“否定”。插入符号在搜索模式中的重要性取决于上下文。1）如果在VBA中将参数设置为True，则插入符号表示“行首”，而不是“字符串的开头”。2）如果插入符号放在一个字符类[^]中，它就像一个否定，即“匹配与字符类的其他参数不匹配的所有字符。”

“字符串的结尾。”搜索模式中美元符号的重要性取决于上下文。如果在VBA中将参数设置为True，则美元符号表示“行尾”，而不是“字符串结尾”。

“转义字符。” 元字符前面的反斜杠将其转换为文字字符。

\b

“字边界”或“退格字符”。在字符类的外面，\b匹配文本源中单词之前或之后的位置。在字符类中，\b表示退格符。

\B

“不是一个字边界。”\B是\b的否定，但在字符类中没有替代含义。

\d

“数字。”匹配从0至9的任意数字。

\D

“非数字。”匹配不是数字的任意字符。

\s

“空白”。匹配空格、换行符或制表符。

\S

“非空白。”匹配不是空格、换行符或制表符的字符。

字符^、$和\b称为锚点，因为它们匹配字符之前、之后或之间的位置。

操作符

一些元字符改变了如何解释搜索模式中的一个或多个其他元素，例如，它们对这些其他元素执行操作。VBA正则表达式具有三种类型的运算符。

布尔运算“或”

元字符：|

说明：表示布尔“或”运算符

示例：a|b匹配“a”或“b”

分组

元字符：()

说明：括号用于下列目的：1）定义运算符的范围和优先级；2）对字符进行分组并记住文本。

示例：h(a|e)y匹配“hay”或“hey”

量化

元字符：?

说明：前一个元素出现0次或1次。

示例：colou?r匹配“color”和“colour”

元字符：*

说明：前一个元素出现0次或多次。

示例：ab*c匹配“ac”、“abc”、“abbc”、“abbbc”，等等

元字符：+

说明：前一个元素出现1次或多次。

示例：ab+c匹配“abc”、“abbc”、“abbbc”，等等，但不匹配“ac”

元字符：{n}

说明：前面的项目恰好匹配n次。

示例：a{3}匹配“aaa”

元字符：{min,}

说明：前面的项目匹配min次或更多次。

示例：a{1,}匹配“a”、“aa”、“aaa”，等等

元字符：{min,max}

说明：前面的项目匹配至少min次，但不多于max次。

示例：a{1,3}匹配“a”、“aa”和“aaa”，但不匹配“aaaa”

字符类

字符类或字符集使用方括号[]指定，一些最常见的如下：

[a-z]

范围从a到z的小写字母集。

[A-Z]

范围从A到Z的大写字母集。

[0-9]

范围从0到9的单个数字集。

字符类经常与搜索模式中的运算符一起使用。例如，[0-5] +转换为“找到一个或多个数字”，而不是仅从0到5的单个数字。

函数

在VBE菜单栏中，选取“工具——引用”命令，在“引用”对话框中找到并选取“ Regular 5.5”复选框，如下图1所示。

图1

插入一个标准模块并输入下面的代码：

Sub ()

Dim r As Match

Dim As

Dim As String

Dim As String

= "在这个字符串中包含邮件地址,'Mary-Jo.T.+'."

="[a-z0-9-.+_]+@[a-z-]+\.[a-z]+"

Set = RegEx(,, , , True)

If Not Is Nothing Then

For Each r In

Debug.Print r

Next r

End If

End Sub

RegEx( , As String, _

As Boolean, As Boolean, _

As Boolean)

Dim As

Dim As New RegExp

If Then

With

.Global =

. =

. =

.Pattern =

End With

If .Test() Then

Set =.Execute()

Set RegEx =

End If

End If

End

过程将调用自定义的RegEx函数。在过程中，在变量中指定输入文本，在变量中定义了搜索模式。代码中，输入文本包含一个假定电子邮件地址的字符串，其中包含有效电子邮件地址中允许的所有字符类型（允许+号）。无论在输入文本中如何重新排列该电子邮件地址，自定义函数RegEx都会找到它并将其返回，前提条件是，你要传递正确的参数。

在RegEx函数中前两个参数是刚才讨论的输入字符串和搜索模式变量，这些参数是必需的，而接下来的三个参数可选：

在过程中，设置参数为False，但是如果我们将其设置为True并且在输入文本中有多个电子邮件地址，那么它们将全部返回到匹配集合中。可选参数设置为True，否则搜索模式会变长：

[a-zA-Z0-9-.+_]+@[a-zA-Z-]+\.[a-zA-Z]+

上面模式中括号内的项目表示字符集，后面跟着的加号是量词，用于指定要查找字符的数量。中间的“@”字符表示搜索该字符，两对双括号中的点被反斜杠转义，表示搜索文本中的点。

从左至右阅读上述模式，其表达的意思如下：

查找一个或者多个从a到z的小写字母或大写字母、从0到9的数字、连字符(-)、点(.)、加号(+)或下划线(_)

并查找

“@”符号

并查找

一个或者多个从a到z的小写字母或大写字母，或连字符(-)

并查找

“.”号

并查找

一个或者多个从a到z的小写字母或大写字母

如果满足所有条件并且输入的字符串中的所有匹配字符是连续的且顺序正确，那么RegEx函数将返回匹配的结果。这意味着，如果搜索模式中含有空白字符，将从根本上改变其意义。如果你错误地在搜索模式中包含了空白字符，那么RexEx将在你指定的其他字符中查找空格。

小结

正则表达式常用于“查找和替换”，其中替换功能使用RegEx对象的Replace方法。你可以使用VBA正则表达式进行各种高级文本处理，包括：

虽然RegEx有很多非常好的应用场合，但是也有一些不应该使用的情形：