正则表达式用于模式匹配。
要在Excel中使用，请按照以下步骤操作：
步骤1：将VBA引用添加到“ Microsoft VBScript正则表达式5.5”
- 选择“开发人员”标签（我没有此标签，我该怎么办？）
- 从“代码”功能区部分选择“ Visual Basic”图标
- 在“ Microsoft Visual Basic应用程序”窗口中，从顶部菜单中选择“工具”。
- 选择“参考”
- 选中要包含在您的工作簿中的“ Microsoft VBScript正则表达式5.5”旁边的框。
- 点击“确定”
第2步：定义模式
基本定义：
- 范围。
- 例如，
a-z匹配从a到z的小写字母
- 例如，
0-5匹配0到5之间的任何数字
[] 完全匹配这些括号内的对象之一。
- 例如，
[a]匹配字母a
- 例如，
[abc]匹配一个字母，可以是a，b或c
- 例如，
[a-z]匹配字母表中的任何单个小写字母。
()将不同的匹配分组以便返回。请参阅下面的示例。
{} 重复的乘数，用于重复定义的模式。
- 例如，
[a]{2}匹配两个连续的小写字母a：aa
- 如
[a]{1,3}匹配至少一个和三个小写字母a，aa，aaa
+ 匹配至少一个或多个在其之前定义的模式。
? 匹配零或之前定义的模式之一。
- 例如，模式可能会或可能不会出现，但只能匹配一次。
- 例如，
[a-z]?匹配空字符串或任何单个小写字母。
* 匹配零个或多个之前定义的模式。-例如通配符，表示可能存在或可能不存在的模式。-例如，[a-z]*匹配空字符串或小写字母字符串。
. 匹配换行符以外的任何字符 \n
- 例如，
a.匹配两个字符串，以a开头，以除以下以外的任何结尾\n
| OR运算符
- 例如，
a|b表示a或b可以匹配。
- 例如，
red|white|orange正好匹配一种颜色。
^ 非运算符
- 例如，
[^0-9]字符不能包含数字
- 例如，
[^aA]字符不能小写a或大写A
\ 转义后面的特殊字符（覆盖行为之上）
锚定模式：
^ 匹配必须在字符串开头
- 例如，
^a第一个字符必须为小写字母a
- 例如，
^[0-9]第一个字符必须是数字。
$ 匹配必须发生在字符串的末尾
优先级表：
Order Name Representation
1 Parentheses ( )
2 Multipliers ? + * {m,n} {m, n}?
3 Sequence & Anchors abc ^ $
4 Alternation |
预定义的字符缩写：
abr same as meaning
\d [0-9] Any single digit
\D [^0-9] Any single character that's not a digit
\w [a-zA-Z0-9_] Any word character
\W [^a-zA-Z0-9_] Any non-word character
\s [ \r\t\n\f] Any space character
\S [^ \r\t\n\f] Any non-space character
\n [\n] New line
示例1：作为宏运行
下面的示例宏查看单元格中的值，A1以查看前1个或2个字符是否为数字。如果是这样，它们将被删除并显示字符串的其余部分。如果没有，则会出现一个框，告诉您找不到匹配项。单元格A1值12abcwill将返回abc，值of 1abc将返回abc，值of abc123将返回“不匹配”，因为数字不在字符串的开头。
Private Sub simpleRegex()
Dim strPattern As String: strPattern = "^[0-9]{1,2}"
Dim strReplace As String: strReplace = ""
Dim regEx As New RegExp
Dim strInput As String
Dim Myrange As Range
Set Myrange = ActiveSheet.Range("A1")
If strPattern <> "" Then
strInput = Myrange.Value
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = strPattern
End With
If regEx.Test(strInput) Then
MsgBox (regEx.Replace(strInput, strReplace))
Else
MsgBox ("Not matched")
End If
End If
End Sub
示例2：作为单元内函数运行
该示例与示例1相同，但设置为作为单元内功能运行。要使用，请将代码更改为此：
Function simpleCellRegex(Myrange As Range) As String
Dim regEx As New RegExp
Dim strPattern As String
Dim strInput As String
Dim strReplace As String
Dim strOutput As String
strPattern = "^[0-9]{1,3}"
If strPattern <> "" Then
strInput = Myrange.Value
strReplace = ""
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = strPattern
End With
If regEx.test(strInput) Then
simpleCellRegex = regEx.Replace(strInput, strReplace)
Else
simpleCellRegex = "Not matched"
End If
End If
End Function
将您的字符串（“ 12abc”）放在cell中A1。=simpleCellRegex(A1)在单元格中输入此公式，B1结果将为“ abc”。
示例3：循环范围
此示例与示例1相同，但循环通过一系列单元。
Private Sub simpleRegex()
Dim strPattern As String: strPattern = "^[0-9]{1,2}"
Dim strReplace As String: strReplace = ""
Dim regEx As New RegExp
Dim strInput As String
Dim Myrange As Range
Set Myrange = ActiveSheet.Range("A1:A5")
For Each cell In Myrange
If strPattern <> "" Then
strInput = cell.Value
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = strPattern
End With
If regEx.Test(strInput) Then
MsgBox (regEx.Replace(strInput, strReplace))
Else
MsgBox ("Not matched")
End If
End If
Next
End Sub
示例4：拆分不同的模式
本示例循环遍历一个范围（A1，A2＆A3），并查找一个字符串，该字符串以三位数字开头，后跟一个字母字符，然后是4位数字。输出使用来将模式匹配拆分为相邻的单元格()。 $1表示在的第一组内匹配的第一个模式()。
Private Sub splitUpRegexPattern()
Dim regEx As New RegExp
Dim strPattern As String
Dim strInput As String
Dim Myrange As Range
Set Myrange = ActiveSheet.Range("A1:A3")
For Each C In Myrange
strPattern = "(^[0-9]{3})([a-zA-Z])([0-9]{4})"
If strPattern <> "" Then
strInput = C.Value
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = strPattern
End With
If regEx.test(strInput) Then
C.Offset(0, 1) = regEx.Replace(strInput, "$1")
C.Offset(0, 2) = regEx.Replace(strInput, "$2")
C.Offset(0, 3) = regEx.Replace(strInput, "$3")
Else
C.Offset(0, 1) = "(Not matched)"
End If
End If
Next
End Sub
结果：
附加图案示例
String Regex Pattern Explanation
a1aaa [a-zA-Z][0-9][a-zA-Z]{3} Single alpha, single digit, three alpha characters
a1aaa [a-zA-Z]?[0-9][a-zA-Z]{3} May or may not have preceding alpha character
a1aaa [a-zA-Z][0-9][a-zA-Z]{0,3} Single alpha, single digit, 0 to 3 alpha characters
a1aaa [a-zA-Z][0-9][a-zA-Z]* Single alpha, single digit, followed by any number of alpha characters
</i8> \<\/[a-zA-Z][0-9]\> Exact non-word character except any single alpha followed by any single digit
