Excel中删除逗号分隔单元格内以@live.com结尾的邮箱

嗨，作为Excel新手，我太懂你面对这种批量处理需求的迷茫了！别慌，我给你分享两个超实用的方法，轻松搞定这个问题～

方法一：用内置函数组合（适合Excel 2019/365及以后版本） #

这个方法不用写代码，直接用现成的函数组合就能完成。假设你的邮箱数据在A1单元格，在旁边空白单元格（比如B1）输入下面的公式，回车就能得到过滤后的结果：

=TEXTJOIN(", ", TRUE, FILTERXML("<t><s>"&SUBSTITUTE(A1, ", ", "</s><s>")&"</s></t>", "//s[not(contains(., '@live.com'))]"))

举个例子，如果你A1里是hello@gmail.com, hi-c@live.com, dv-ss@live.com, sadeq@live.com，用这个公式后B1就会输出hello@gmail.com，完全符合你的需求～

小提醒：如果你的邮箱之间是只有逗号没有空格（比如a@x.com,b@live.com），记得把公式里的", "（逗号加空格）都改成",（只有逗号）哦，不然会识别出错。

方法二：自定义VBA函数（适合所有Excel版本） #

如果你用的是比较旧的Excel版本，没有TEXTJOIN函数，那可以试试这个自定义函数，步骤也很简单：

1. 打开Excel，按下Alt + F11组合键，打开VBA编辑器
2. 点击左上角的「插入」→「模块」，在弹出的空白窗口里粘贴下面的代码：

Function FilterEmails(rng As Range) As String
    Dim emails As Variant
    Dim result As String
    '把单元格内容按逗号空格拆分
    emails = Split(rng.Value, ", ")
    '逐个检查邮箱
    For Each email In emails
        '如果不是@live.com结尾，就加入结果
        If Not Right(email, 9) = "@live.com" Then
            result = result & email & ", "
        End If
    Next
    '去掉最后多余的逗号和空格
    If result <> "" Then
        FilterEmails = Left(result, Len(result) - 2)
    Else
        FilterEmails = ""
    End If
End Function

3. 关闭VBA编辑器，回到Excel界面，在空白单元格输入=FilterEmails(A1)（A1换成你的数据单元格），回车就能得到结果啦～

同样，如果你的邮箱分隔符是纯逗号，记得把代码里的", "改成",哦！

备注：内容来源于stack exchange，提问作者Rahaf Alqahtani