excel表格中，每个人名下有很多卡，只要任意一张卡入会日期大于90，就删除此人全部信息。

发布网友发布时间：2022-04-23 12:57

共2个回答

热心网友时间：2023-10-14 11:26

在工作表名点右键，单击“查看代码”，复制粘贴下面的代码，关闭代码窗口，按Alt+F8，单击执行即可删除，注意删除后不可恢复，事先应做好数据备份。

Sub s()
    n = Cells(Rows.Count, 1).End(3).Row
    arr = Range("a2:b" & n)
    Range("a2:b" & n).ClearContents
    k = 2
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        If arr(i, 2) > 90 Then
            d(arr(i, 1)) = 1
        End If
    Next
    For i = 1 To UBound(arr)
        If Not d.exists(arr(i, 1)) Then
            Cells(k, 1) = arr(i, 1)
            Cells(k, 2) = arr(i, 2)
            k = k + 1
        End If
    Next
End Sub

热心网友时间：2023-10-14 11:27

如果要自动删除得VBA；公式标注的话在C2输入
=IF(MAX(IF(A$2:A$999=A2,B$2:B$999,))>90,"待删除","")
公式完成后ctrl+shift+enter三健同时按，999根据最大行编写

全部栏目

excel表格中，每个人名下有很多卡，只要任意一张卡入会日期大于90，就删除此人全部信息。