Question

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

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

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

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

Answer 1

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

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

Answer 2

快速VBA方法：

<head>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.3.1/jquery.min.js"></script>
</head>
<style type="text/css">
    .link:hover {text-decoration:underline; cursor:pointer; color:blue;}
</style>
<body>
    <div id="abc">
        <p class="link" id="91">Page 1</p>
        <p class="link" id="75">Page 2</p>
        <p class="link" id="88">Page 3</p>
    </div>
    <span id="replace">Replace this Text</span>
<script>
    $(document).ready(function(){
        $("#abc p").click(function(){
           var id = ($(this)[0].id);
            $.ajax({
               type: "POST",
               url: 'testAjax2.php',
               data: {"articleID":id},
               success: function(data){
                   $("#replace").html(data);
               }
            });
        });
  });
</script>
</body>
</html>

e.g。

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

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

2 个答案: