如何在Microsoft Excel中使用正则表达式（Regex），包括单元格内和循环。

要在Excel公式中直接使用正则表达式，下面的UDF（用户定义函数）可以提供帮助。它或多或少地将正则表达式的功能直接暴露为一个Excel函数。

它是如何工作的

它需要2-3个参数。

1.一个要使用正则表达式的文本。 2.一个正则表达式。 3.一个格式字符串，指定结果的样子。它可以包含$0，$1，$2，以此类推。$0'是整个匹配，$1'及以上对应于正则表达式中的各个匹配组。默认为"$0"。

一些例子

提取一个电子邮件地址。

=regex("Peter Gordon: some@email.com, 47", "\w+@\w+\.\w+")
=regex("Peter Gordon: some@email.com, 47", "\w+@\w+\.\w+", "$0")

结果是。some@email.com。

提取几个子字符串。

=regex("Peter Gordon: some@email.com, 47", "^(.+): (.+), (\d+)$", "E-Mail: $2, Name: $1")

结果是。`E-Mail: some@email.com, Name:彼得-戈登

将单个单元格中的组合字符串拆成多个单元格中的组成部分。

=regex("Peter Gordon: some@email.com, 47", "^(.+): (.+), (\d+)$", "$" & 1)
=regex("Peter Gordon: some@email.com, 47", "^(.+): (.+), (\d+)$", "$" & 2)

结果是。Peter Gordon some@email.com ...

如何使用

要使用这个UDF，请按以下步骤操作（大致基于这个微软页面。他们那里有一些很好的附加信息！）。

1.在Excel中一个启用了宏的文件（'.xlsm'）按ALT+F11打开Microsoft Visual Basic for Applications编辑器。 2.2.为正则表达式库添加VBA参考（无耻地从[Portland Runners++ answer][2]复制）。 1.点击工具 ->引用（请原谅我的德语截图） 2.在列表中找到Microsoft VBScript Regular Expressions 5.5并勾选旁边的复选框。 3.点击OK。 3.点击插入模块。如果你给你的模块起了一个不同的名字，请确保该模块不与下面的UDF同名（例如，将模块命名为Regex和函数regex会导致#NAME！*错误）。

。 4.在中间的大文本窗口中插入以下内容。

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

        随着输入RegexObj
            .全局 = True
            .多行 = True
            .IgnoreCase = False
            .模式 = matchPattern
        结束
        与outputRegexObj
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = "$(\d+)"
        结束
        随着outReplaceRegexObj
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
        结束

        Set inputMatches = inputRegexObj.Execute(strInput)
        如果inputMatches.Count = 0，那么
            regex = False
        否则
            Set replaceMatches = outputRegexObj.Execute(outputPattern)
            对于 replaceMatches 中的每个 replaceMatch
                replaceNumber = replaceMatch.SubMatches(0)
                outReplaceRegexObj.Pattern = "\$" & replaceNumber

                如果 replaceNumber = 0 那么
                    outputPattern = outReplaceRegexObj.Replace(outputPattern, inputMatches(0).Value)
                否则
                    如果 replaceNumber > inputMatches(0).SubMatches.Count 然后
                        'regex = "发现一个至高的$标签。最大的允许是$" & inputMatches(0).SubMatches.Count & "."
                        regex = CVErr(xlErrValue)
                        退出函数
                    否则
                        outputPattern = outReplaceRegexObj.Replace(outputPattern, inputMatches(0).SubMatches(replaceNumber - 1))
                    End If
                End If
            下一步
            regex = outputPattern
        结束 如果
    结束功能

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

[2]:/questions/22542834/how-to-use-regular-expressions-regex-in-microsoft-excel-both-in-cell and-loops#answer-22542835

对[patszim][1]'的[答案][2]进行扩展，供有急事的人参考。

1. 打开Excel工作簿。

2. Alt+F11</kbd&gt。 打开VBA/宏窗口。

3. 在工具下添加对regex的引用，然后在引用下添加。 [！[！[Excel VBA表格添加引用][3]][3]

4. 并选择Microsoft VBScript Regular Expression 5.5。 [![!/[Excel VBA添加regex引用][4]][4]

5. 插入一个新的模块（代码需要驻留在模块中，否则无法工作）。 [！[！/[Excel VBA插入代码模块][5]][5]。

6. 在新插入的模块中： [![!/[Excel VBA插入模块代码][6]][6]

7. 添加以下代码。

函数RegxFunc(strInput As String, regexPattern As String) As String。 Dim regEx As New RegExp 有regEx .Global = True .MultiLine = True .IgnoreCase = False .pattern = regexPattern 结束于

如果 regEx.Test(strInput) Then Set matches = regEx.Execute(strInput) RegxFunc = matches(0).Value. 其他 RegxFunc = "不匹配&quot.RegxFunc = "不匹配" End If 结束功能

8. 将regex模式放在其中一个单元格中，并对其使用绝对引用。 [！[！/[Excel regex函数在单元格中的使用][7]][7]。 函数将与创建的工作簿绑定。 如果需要在不同的工作簿中使用该函数，请将其存储在Personal.XLSB中。

[1]: https://stackoverflow.com/users/1975049/patszim [2]: https://stackoverflow.com/a/28176749/1699071 [3]: [3]：https://i.stack.imgur.com/sKCdA.png [4]: https://i.stack.imgur.com/nmSgP.png [5]: https://i.stack.imgur.com/RaLQ0.png [6]: https://i.stack.imgur.com/DFJ7F.png [7]: https://i.stack.imgur.com/XnS6t.png

这是我的尝试。

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），发现很容易。

1. 确保你在一个启用了宏的Excel文件中（保存为xlsm）。

2. 打开开发者工具Alt</kbd&gt。

• F11</kbd&gt。

3. 如其他答案一样添加微软VBScript正则表达式5.5。

4. 在工作簿或自己的模块中创建以下函数。

函数REGPLACE(myRange As Range, matchPattern As String, outputPattern As String) As Variant。 Dim regex as New VBScript_RegExp_55.Reg RegExp Dim strInput as String

strInput = myRange.Value

用regex .Global = True .MultiLine = True .IgnoreCase = False .Pattern = matchPattern 结束于

REGPLACE = regex.Replace(strInput, outputPattern)

结束功能

然后可以在单元格中使用=REGPLACE(B1, "(\w) (\d+)", "$1$2")(例：) "A 243" 至"A243")

这里有一个regex_subst()函数。 例子:

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

这是简化后的代码（反正对我来说比较简单）。 我不知道如何使用上面的代码建立一个合适的输出模式，以便像我的例子一样工作。

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

我不想启用一个参考库，因为我需要我的脚本是可移植的。 Dim foo As New VBScript_RegExp_55.RegExp行引起User Defined Type Not Defined错误，但我找到了一个对我有用的解决方案。

你要做的是在单元格A1中放入一个示例字符串，然后测试你的strPattern。 一旦成功了，就可以根据需要调整rng。

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")

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

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

    For Each rcell In rng.Cells

        If strPattern  "" Then
            strInput = rcell.Value

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