如何移除Excel单元格内的邮箱地址并保留其余文本

以下方法完全匹配给定判定规则：识别所有被空格包裹、包含@符号的邮箱文本并移除，保留其余内容，兼容单元格无邮箱、单元格仅含邮箱的场景，处理效果和给出的示例完全一致。

方案1：VBA自定义函数（适合中小数据量，操作门槛低） #

• 打开待处理的Excel文件，按Alt+F11快捷键调出VBA编辑器
• 在左侧工程资源管理器中右键点击当前工作簿名称，依次选择「插入」-「模块」，将下方代码粘贴到弹出的代码编辑窗口：

Function RemoveEmail(target As Range) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True
        .Pattern = "(^|\s)[^\s]*@[^\s]*(\s|$)"
        RemoveEmail = Trim(.Replace(target.Value, " "))
    End With
End Function

• 关闭VBA编辑器返回Excel主界面，在待处理列旁的空白列首行（如原数据在A列则选中B1单元格），输入公式=RemoveEmail(A1)按回车，下拉填充整列即可得到处理后的结果
• 如需覆盖原数据，选中处理好的整列结果，复制后右键点击原数据列首格，选择「粘贴为值」即可，临时列可直接删除

方案2：Power Query处理（适合万行以上大数据量，无需启用宏） #

• 选中待处理的整列数据，点击顶部菜单栏「数据」选项卡下的「从表格/区域」，确认是否包含表头后点击确定，进入Power Query编辑器
• 点击顶部「添加列」选项卡下的「自定义列」，在弹出的设置窗口中，将下方公式粘贴到自定义列公式输入框，注意把公式里的[待处理列名]替换为你实际的列名称：

= Text.Trim(Text.Combine(List.Select(Text.Split([待处理列名], " "), each not Text.Contains(_, "@")), " "))

• 确认公式无报错后点击确定，即可看到新增列已自动完成邮箱移除
• 点击左上角「关闭并上载」，处理完成的数据会自动导出到新工作表，核对无误后替换原数据即可

注意：如果邮箱尾部附带逗号、句号等标点（如示例中的yourmail@Yahoo.com,），上述两种方法会自动将带标点的整段邮箱文本识别移除，不需要额外调整规则，处理结果和示例完全对齐。

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