如何在单元格和循环中使用Microsoft Excel中的正则表达式（正则表达式）

How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops

如何在Excel中使用正则表达式并利用Excel强大的网格式数据操作设置？

在cell函数中返回匹配的模式或字符串中替换的值。
循环通过一列数据并提取与相邻单元格的匹配项。
需要什么设置？
Excel的正则表达式特殊字符是什么？

我知道regex不适用于很多情况(使用还是不使用正则表达式？)因为Excel可以使用Left、Mid、Right、Instr类型的命令进行类似的操作。

相关讨论

正则表达式用于模式匹配。好的。

要在Excel中使用，请执行以下步骤：好的。

步骤1:添加对"Microsoft vbscript正则表达式5.5"的vba引用好的。

选择"开发人员"选项卡(我没有此选项卡，我该怎么做？)
从"代码"功能区部分选择"Visual Basic"图标
在"Microsoft Visual Basic for Applications"窗口中，从顶部菜单中选择"Tools"。
选择"引用"
选中要包含在工作簿中的"Microsoft vbscript正则表达式5.5"旁边的框。
点击"确定"

第二步：定义你的模式好的。

基本定义：好的。

-范围。好的。

例如，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+与连续A的a、aa、aaa等匹配

?匹配零或前面定义的模式之一。好的。

例如，模式可能存在，也可能不存在，但只能匹配一次。
例如，[a-z]?匹配空字符串或任何单个小写字母。

*匹配前面定义的零个或多个模式。-例如，模式的通配符可能存在，也可能不存在。-例如，[a-z]*匹配空字符串或小写字母字符串。好的。

.匹配除换行
外的任何字符好的。

例如，EDCOX1〔26〕匹配从A开始的两个字符串，除EDCOX1以外的任何25个结尾。

EDCOX1〔28〕或算子好的。

例如a|b意味着EDCOX1〔12〕或EDCX1〔31〕可以匹配。
例如，EDCOX1〔32〕正好匹配其中一种颜色。

EDOCX1·33非算子好的。

例如，EDCOX1×34字符不能包含一个数字。
例如，[^aA]字符不能是小写a或大写a。

\转义后面的特殊字符(覆盖上述行为)好的。

例如：\.、\\、\(、\?、\$、\^。

锚定方式：好的。

^匹配必须出现在字符串的开头好的。

例如，^a的第一个字符必须是小写字母a。
例如，^[0-9]的第一个字符必须是数字。

$匹配必须出现在字符串末尾好的。

例如，a$的最后一个字符必须是小写字母a。

优先表：好的。

1
2
3
4
5

Order Name Representation
1 Parentheses ( )
2 Multipliers ? + * {m,n} {m, n}?
3 Sequence & Anchors abc ^ $
4 Alternation |

预定义的字符缩写：好的。

1
2
3
4
5
6
7
8
9
10
11
12
13
14

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 [
\t
\f] Any space character
\S [^
\t
\f] Any non-space character

[
] New line

示例1：作为宏运行好的。

下面的示例宏查看单元格A1中的值，以查看前1或2个字符是否是数字。如果是这样，它们将被删除并显示字符串的其余部分。如果没有，则会出现一个框，告诉您找不到匹配项。12abc的单元格A1值将返回abc，1abc的值将返回abc，abc123的值将返回"不匹配"，因为数字不在字符串的开头。好的。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

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相同，但设置为作为单元内函数运行。要使用，请将代码更改为：好的。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

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")放入单元格A1。在单元格B1中输入该公式=simpleCellRegex(A1)，结果为"abc"。好的。

enter image description here 好的。

示例3：循环范围好的。

此示例与示例1相同，但循环通过一系列单元格。好的。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

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表示在()的第一组中匹配的第一个图案。好的。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

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

结果：好的。

enter image description here 好的。

其他模式示例好的。

1
2
3
4
5
6
7

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 preceeding 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

好啊。

相关讨论

你不应该忘记埃多克斯1〔0〕。当该Sub经常被执行时，您将得到内存不足的异常。
我将示例4与子匹配用于处理更复杂的regex，如果有人感兴趣，基本上在拆分时不使用replace:stackoverflow.com/questions/30218413/&hellip；
后期装订线：Set regEx = CreateObject("VBScript.RegExp")。
这是一个很好的答案，但有以下保留。(1)大多数正则表达式引擎都应支持此正则表达式语法，而不仅仅是vbscript regex库。(2)确实，Excel有一种独特的方法(而不是迭代对象)，可以调用函数(在单元格函数中)与正则表达式一起使用，但Access也是如此。
似乎Microsoft vbscript正则表达式5.5在OS X/MacOS中不可用？我在Mac上的Microsoft Office 2016中没有此选项。据我所知，在Mac版本中获得本地regex支持几乎是不可能的。
很好的回答。有一个改进：我很难让克拉(^作为否定，但最近发现了这个使用?!的答案。这对我有用。例如，寻找"护士"而不是"实践者"：(?=.*(nurse))(?!(?=.*(practitioner)))
一个可以通过使用EDCOX1(5)来匹配EDCOX1×5吗？如何匹配一个起始和结束字边界？我用EDCX1，8的方法测试EDCOX1 7，但没有运气。也不知道EDOCX1的9Ω是什么。
对于微软上的VBScript正则表达式5.5似乎不可用，这个答案对于Mac上的Excel是没有用的。
@你说得对，我从没说过。regexp是mac上的vba所没有的其中之一。看看这个关于Mac上regex的线程
我有名字吗？错误。已将示例2代码粘贴到vba项目(myfilename.xlsm)>Microsoft Excel对象>此工作簿中
@你的机器故障在哪一行？你是在Windows上还是在Mac上？什么版本的Excel？在步骤1中是否包括参考库？我已经在几个没有错误的系统上测试过这个，所以我对您的设置很好奇。
@PortlandRunner Office 365 Proplus Excel版本1808，版本10730.20334。是的，我已经完成了第一步，但是在今天重新检查设置时，它并没有持续(我的操作系统在过去的48小时内似乎已经重新启动，而笔记本电脑正在休眠)。现在再次启用该引用，保存并保持。代码仍存在于上一条注释中描述的位置中。我在一个单元格中输入以下内容："=simpleCellRegex(l496)"并获取名称？.cell包含电子邮件地址。我更新了这个strPattern以匹配有效的电子邮件。OS Win10 Pro 64位(10.0内部版本17134)。
好吧，我很确定这是因为代码在ThisWorkbook中。尝试将代码移动到单独的Module。
@"Project Explorer"(？)中的PortlandRunner这个Excel文件缺少"模块"子文件夹，尽管另一个文件显示了一个子文件夹。右键单击文件并选择"插入模块"，然后双击"模块1"并粘贴代码。保存的。回到工作簿，再次输入函数-它工作了。为了像我这样没有经验的人，答案也许值得注意？谢谢你的帮助。

为了直接在Excel公式中使用正则表达式，下面的UDF(用户定义函数)是有帮助的。它或多或少直接将正则表达式功能作为Excel函数公开。

它是如何工作的

它需要2-3个参数。

使用正则表达式的文本。

正则表达式。

指定结果外观的格式字符串。它可以包含$0、$1、$2等。$0是整个匹配，$1和up在正则表达式中对应于各自的匹配组。默认为$0。

一些实例

提取电子邮件地址：

1 2	=regex("Peter Gordon: [email protected], 47","\w+@\w+\.\w+") =regex("Peter Gordon: [email protected], 47","\w+@\w+\.\w+","$0")

结果：[email protected]。

提取多个子字符串：

1	=regex("Peter Gordon: [email protected], 47","^(.+): (.+), (\d+)$","E-Mail: $2, Name: $1")

结果：E-Mail: [email protected], Name: Peter Gordon。

要将单个单元格中的组合字符串拆分为多个单元格中的组件：

1 2	=regex("Peter Gordon: [email protected], 47","^(.+): (.+), (\d+)$","$" & 1) =regex("Peter Gordon: [email protected], 47","^(.+): (.+), (\d+)$","$" & 2)

结果表明：Peter Gordon[email protected]是一种较好的治疗方法。

如何使用

要使用此UDF，请执行以下操作(大致基于此Microsoft页面)。他们有一些很好的附加信息！)：

在启用宏的文件(".xlsm")中的Excel中，按ALT+F11打开Microsoft Visual Basic for Applications编辑器。

将vba引用添加到正则表达式库中(无耻地从Portland Runners++答案中复制)：

点击工具->参考(请原谅德国截图) Tools ->参考

在列表中找到Microsoft vbscript正则表达式5.5，并选中它旁边的复选框。

单击确定。

单击"插入模块"。如果您给您的模块取了不同的名称，请确保该模块与下面的UDF没有相同的名称(例如，命名模块Regex和函数Regex导致的名称不同！错误)。

Second icon in the icon row ->模块

在中间的大文本窗口中插入以下内容：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Function regex(strInput As String, matchPattern As String, Optional ByVal outputPattern As String ="$0") As Variant
Dim inputRegexObj As New VBScript_RegExp_55.RegExp, outputRegexObj As New VBScript_RegExp_55.RegExp, outReplaceRegexObj As New VBScript_RegExp_55.RegExp
Dim inputMatches As Object, replaceMatches As Object, replaceMatch As Object
Dim replaceNumber As Integer

With inputRegexObj
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = matchPattern
End With
With outputRegexObj
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern ="\$(\d+)"
End With
With outReplaceRegexObj
.Global = True
.MultiLine = True
.IgnoreCase = False
End With

Set inputMatches = inputRegexObj.Execute(strInput)
If inputMatches.Count = 0 Then
regex = False
Else
Set replaceMatches = outputRegexObj.Execute(outputPattern)
For Each replaceMatch In replaceMatches
replaceNumber = replaceMatch.SubMatches(0)
outReplaceRegexObj.Pattern ="\$" & replaceNumber

If replaceNumber = 0 Then
outputPattern = outReplaceRegexObj.Replace(outputPattern, inputMatches(0).Value)
Else
If replaceNumber > inputMatches(0).SubMatches.Count Then
'regex ="A to high $ tag found. Largest allowed is $" & inputMatches(0).SubMatches.Count &"."
regex = CVErr(xlErrValue)
Exit Function
Else
outputPattern = outReplaceRegexObj.Replace(outputPattern, inputMatches(0).SubMatches(replaceNumber - 1))
End If
End If
Next
regex = outputPattern
End If
End Function

保存并关闭Microsoft Visual Basic for Applications编辑器窗口。

相关讨论

扩大帕茨西姆对那些匆忙的人的回答。

打开Excel工作簿。

alt+f11打开vba/macros窗口。

在"工具"下添加对regex的引用，然后添加引用 ![Excel VBA Form add references

并选择Microsoft vbscript正则表达式5.5 ![Excel VBA add regex reference

插入新模块(代码需要驻留在模块中，否则无法工作)。 ![Excel VBA insert code module

在新插入的模块中，

添加以下代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Function RegxFunc(strInput As String, regexPattern As String) As String
Dim regEx As New RegExp
With regEx
.Global = True
.MultiLine = True
.IgnoreCase = False
.pattern = regexPattern
End With

If regEx.Test(strInput) Then
Set matches = regEx.Execute(strInput)
RegxFunc = matches(0).Value
Else
RegxFunc ="not matched"
End If
End Function

regex模式被放置在其中一个单元格中，并对其使用绝对引用。 ![Excel regex function in-cell usage 函数将绑定到在其中创建的工作簿。如果需要在不同的工作簿中使用它，请将该功能存储在personal.xlsb中。

这是我的尝试：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Function RegParse(ByVal pattern As String, ByVal html As String)
Dim regex As RegExp
Set regex = New RegExp

With regex
.IgnoreCase = True 'ignoring cases while regex engine performs the search.
.pattern = pattern 'declaring regex pattern.
.Global = False 'restricting regex to find only first match.

If .Test(html) Then 'Testing if the pattern matches or not
mStr = .Execute(html)(0) '.Execute(html)(0) will provide the String which matches with Regex
RegParse = .Replace(mStr,"$1") '.Replace function will replace the String with whatever is in the first set of braces - $1.
Else
RegParse ="#N/A"
End If

End With
End Function

我需要将其用作细胞功能(如SUM或VLOOKUP)，并发现很容易：

确保您在启用宏的Excel文件中(另存为XLSM)。

打开开发人员工具alt+f11

与其他答案一样添加Microsoft vbscript正则表达式5.5

在工作簿或其自身模块中创建以下函数：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Function REGPLACE(myRange As Range, matchPattern As String, outputPattern As String) As Variant
Dim regex As New VBScript_RegExp_55.RegExp
Dim strInput As String

strInput = myRange.Value

With regex
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = matchPattern
End With

REGPLACE = regex.Replace(strInput, outputPattern)

End Function

然后您可以在带有=REGPLACE(B1,"(\w) (\d+)","$1$2")的单元中使用(例如："a243"到"a243")。

相关讨论

这里是一个EDCOX1×16函数。实例：

1
2
3
4

=regex_subst("watermellon","[aeiou]","")
---> wtrmlln
=regex_subst("watermellon","[^aeiou]","")
---> aeeo

这里是简化代码(不管怎样，对我来说都更简单)。我不知道如何用上面的例子来构建一个合适的输出模式，比如我的例子：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Function regex_subst( _
strInput As String _
, matchPattern As String _
, Optional ByVal replacePattern As String ="" _
) As Variant
Dim inputRegexObj As New VBScript_RegExp_55.RegExp

With inputRegexObj
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = matchPattern
End With

regex_subst = inputRegexObj.Replace(strInput, replacePattern)
End Function

我不想让一个参考库，因为我需要我的脚本是便携式的。EDCOX1的17Ω线引起EDCOX1的18个错误，但我找到了一个对我有用的解决方案。

您要做的是在CytoEDCX1中引用一个示例字符串19，然后测试EDCOX1的20个字符。一旦工作，然后根据需要调整EDCOX1〔21〕。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

Public Sub RegExSearch()
'https://stackoverflow.com/questions/22542834/how-to-use-regular-expressions-regex-in-microsoft-excel-both-in-cell-and-loops
'https://wellsr.com/vba/2018/excel/vba-regex-regular-expressions-guide/
'https://www.vitoshacademy.com/vba-regex-in-excel/
Dim regexp As Object
'Dim regex As New VBScript_RegExp_55.regexp 'Caused"User Defined Type Not Defined" Error
Dim rng As Range, rcell As Range
Dim strInput As String, strPattern As String

Set regexp = CreateObject("vbscript.regexp")
Set rng = ActiveSheet.Range("A1:A1")

For Each rcell In rng.Cells

strPattern ="([a-z]{2})([0-9]{8})"
'Search for 2 ## then 8 Digits Eg: XY12345678 = Matched

If strPattern <>"" Then
strInput = rcell.Value

With regexp
.Global = False
.MultiLine = False
.ignoreCase = True
.Pattern = strPattern
End With

If regexp.test(strInput) Then
MsgBox rcell &" Matched in Cell" & rcell.Address
Else
MsgBox"No Matches!"
End If
End If
Next
End Sub