如果存在特殊字符，是否删除单元格？

Question

如果存在特定字符，如何删除单元格？

我有一个电子邮件地址电子表格，我需要从中删除非用户地址。我们有两种标准地址：

用户帐户（firstname.lastname@company.com）
服务帐户 (servicename@company.com)。

我希望自动从列表中删除服务帐户并使此过程可重复。

Answer 1

在电子邮件地址旁边插入一个临时列。然后您可以使用公式来确定地址的类型。此公式假定您的电子邮件地址位于 A1 中，并确定电子邮件帐户名称中是否包含句点。

=IF(FIND(".",A1)<FIND("@",A1),"User","Service")

Answer 2

快速VBA方法：

Sub RemoveServiceAccounts(ByRef rng As Range)
    With rng
        .AutoFilter Field:=1, Criteria1:="<>*.*@*", Operator:=xlAnd
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
End Sub

例如

Sub Test()
    RemoveServiceAccounts Selection
End Sub

如果存在特殊字符，是否删除单元格？

Removing a Cell if a special character exists?

excel

excel-2010