正则表达式模式解释

Question

此用户定义函数 (UDF) 将返回引用单元格中现有电子邮件地址的数组。

然后可以用多种方法检索单个地址：

使用 INDEX 函数
以跨多个单元格的数组形式输入函数
在宏中使用它来执行您可能需要的专门操作。

电子邮件地址的字符由正则表达式模式决定sPat，下面详细描述。

您将 UDF 放入常规模块中

Option Explicit
Function ExtrEmail(S As String) As String()
    Dim sTemp() As String
    Dim RE As Object, MC As Object, M As Object
    Const sPat As String = "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b" 'Regex for emails
    Dim I As Long
    
'Initialize Regex engine
Set RE = CreateObject("vbscript.regexp")
With RE
    .Pattern = sPat
    .Global = True
    .ignorecase = True
    If .test(S) = True Then
        Set MC = .Execute(S)
        ReDim sTemp(1 To MC.Count)
        I = 0
        For Each M In MC
            I = I + 1
            sTemp(I) = M
        Next M
    End If
End With
ExtrEmail = sTemp
End Function

下面的屏幕截图显示了使用它的一种方式（使用 INDEX 函数）。输入公式B1并向右向下填充。IFERROR如果匹配项少于填充的单元格数，则该子句会使其返回空字符串。

编辑： 图片已更改以显示所有三个示例

正则表达式模式解释

电子邮件地址

\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b

选项：不区分大小写；^$ 不匹配换行符

断言字边界处的位置 \b
匹配下面列表中的单个字符 [A-Z0-9._%+-]+
逐字匹配字符“@” @
匹配下面列表中的单个字符 [A-Z0-9.-]+
逐字匹配字符“。” \.
匹配“A”至“Z”范围内的单个字符 [A-Z]{2,}
- 2 至无限次之间，尽可能多次，根据需要回馈（贪婪） {2,}
断言字边界处的位置 \b

创建于正则表达式好友

Answer 1

此用户定义函数 (UDF) 将返回引用单元格中现有电子邮件地址的数组。

然后可以用多种方法检索单个地址：

使用 INDEX 函数
以跨多个单元格的数组形式输入函数
在宏中使用它来执行您可能需要的专门操作。

电子邮件地址的字符由正则表达式模式决定sPat，下面详细描述。

您将 UDF 放入常规模块中

Option Explicit
Function ExtrEmail(S As String) As String()
    Dim sTemp() As String
    Dim RE As Object, MC As Object, M As Object
    Const sPat As String = "\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b" 'Regex for emails
    Dim I As Long
    
'Initialize Regex engine
Set RE = CreateObject("vbscript.regexp")
With RE
    .Pattern = sPat
    .Global = True
    .ignorecase = True
    If .test(S) = True Then
        Set MC = .Execute(S)
        ReDim sTemp(1 To MC.Count)
        I = 0
        For Each M In MC
            I = I + 1
            sTemp(I) = M
        Next M
    End If
End With
ExtrEmail = sTemp
End Function

下面的屏幕截图显示了使用它的一种方式（使用 INDEX 函数）。输入公式B1并向右向下填充。IFERROR如果匹配项少于填充的单元格数，则该子句会使其返回空字符串。

编辑： 图片已更改以显示所有三个示例

正则表达式模式解释

电子邮件地址

\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b

选项：不区分大小写；^$ 不匹配换行符

断言字边界处的位置 \b
匹配下面列表中的单个字符 [A-Z0-9._%+-]+
逐字匹配字符“@” @
匹配下面列表中的单个字符 [A-Z0-9.-]+
逐字匹配字符“。” \.
匹配“A”至“Z”范围内的单个字符 [A-Z]{2,}
- 2 至无限次之间，尽可能多次，根据需要回馈（贪婪） {2,}
断言字边界处的位置 \b

创建于正则表达式好友

正则表达式模式解释

答案1

正则表达式模式解释

电子邮件地址

相关内容