选择所有不包含电子邮件地址的 Excel 单元格

Question

我使用的是 Microsoft Excel 2010。如何选择所有非电子邮件地址的单元格？我想删除它们并仅保留验证电子邮件地址的单元格。

Answer 1

验证电子邮件地址是一个黑洞。即使您能够确定电子邮件的有效性，您仍然不知道它是否是有效的电子邮件，甚至不知道该人的电子邮件（他们可能输入了其他人的地址）。

如果您仍然想进行基本的语法测试，您可以进入 VBA（可能需要在功能区的“开发人员”选项卡上启用）并设置对“Microsoft VBSript 正则表达式 5.5”的引用，创建一个新模块并输入此代码（我不擅长正则表达式，所以我从StackOverflow获取它，您可以在FightingForALostCause获取其他正则表达式或在正则表达式获取完整讨论）：

Public Function CheckEmailSyntax(ByVal Email As String) As Boolean
    Dim regex As RegExp
    Set regex = New RegExp
    regex.Pattern = "^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,6})$"
    regex.IgnoreCase = True
    CheckEmailSyntax = regex.Test(Email)
End Function

然后在您的项目中输入类似=CheckEmailSyntax(A1). TRUE好的人和FALSE坏的人都会得到回报。按 T​​/F 列对两列进行排序并删除 FALSE 列。希望这可以帮助。