如何拆分单个单元格中格式不一致的电子邮箱地址

针对姓名带逗号、邮箱格式混杂的情况，核心思路是利用电子邮箱的统一格式特征（name@domain.com类结构），通过正则匹配精准提取，以下是几种实用方法：

方法1：Excel内置公式（无需编程） #

使用FILTERXML结合XPath匹配邮箱模式，配合TEXTJOIN将提取到的邮箱用分隔符拼接，后续可通过分列拆分到不同列。

假设目标内容在A1单元格，在空白单元格输入以下公式：

=TEXTJOIN(", ", TRUE, FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE(A1, "<", ","), ">", ",")&"</s></t>", "//s[contains(., '@') and contains(substring-after(., '@'), '.')]"))

• 原理：先替换<和>为逗号，将内容拆分为XML节点，再筛选包含@且@后带.的节点（即符合邮箱格式的内容），最后拼接结果。
• 后续操作：得到拼接字符串后，用「数据→分列」选择逗号作为分隔符，即可拆分到多列。

方法2：Power Query（适合批量处理） #

1. 选中目标单元格区域，点击「数据→从表格/区域」（勾选「我的表格有标题」）。
2. 在Power Query编辑器中，点击「添加列→自定义列」，输入M代码：

= List.Select(Text.Split(Text.Replace(Text.Replace([目标列], "<", ""), ">", ""), ","), each Text.Contains(_, "@") and Text.Contains(Text.AfterDelimiter(_, "@"), "."))

3. 点击「确定」后，将自定义列展开为新列，最后点击「关闭并上载」，即可得到拆分好的邮箱列。

方法3：VBA宏（高效处理大量数据） #

按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Sub ExtractEmails()
    Dim rng As Range
    Dim cell As Range
    Dim regex As Object
    Dim matches As Object
    Dim i As Integer
    
    Set rng = Application.Selection
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b"
    regex.Global = True
    
    For Each cell In rng
        Set matches = regex.Execute(cell.Value)
        i = 1
        For Each match In matches
            cell.Offset(0, i).Value = match.Value
            i = i + 1
        Next match
    Next cell
End Sub

• 使用方法：选中目标单元格，运行宏，邮箱会自动提取到当前单元格右侧的相邻列。
• 正则说明：\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b是标准邮箱匹配规则，能精准识别所有符合格式的邮箱。

内容的提问来源于stack exchange，提问作者Will S