删除编号相同的重复项，保留最新日期的项

renkangjizhen

renkangjizhen 发表于 2019-12-9 20:40
1、先以证书号为第一关键字、更新时间为第二关键字对原表格数据区域进行升序排序
2.对证书号所在列数据区 ...

检查一下代码有无问题，按道理讲应该没问题

renkangjizhen

Sub test()
Dim rng As Range, x%, y%, i&
i = [c65536].End(3).Row
Range([a2], Cells(i, "e")).Sort key1:=[d1], order1:=xlAscending, key2:=[e1], order1:=xlDescending
For x = i To 2 Step -1
    If Cells(x, "d").Value = Cells(x - 1, "d").Value Then
      Rows(x & ":" & x).Delete
    End If
Next x
End Sub

smqppiya

cui26896 发表于 2019-12-11 17:17
测试一下，只要把    If arr(i, 5) >= "2019/1/1" Then屏蔽，结果与6楼的完全一样，也是237个。

确实是这样，感谢耐心解答！

smqppiya

renkangjizhen 发表于 2019-12-12 10:34
Sub test()
Dim rng As Range, x%, y%, i&
i = [c65536].End(3).Row

试了下，这个代码也很好啊，再次感觉到了各位大神的厉害，拜谢拜谢！