vba保留最早出现的日期同时保留相同的日期

Piano青墨

这个代码是保留最早的日期同时也会删除相同最早的日期。我是需要保留最早的日期，如果遇见相同的最早的日期也保留，请帮忙知道一下，这个代码怎么修改一下，谢谢

Sub 按钮1_Click()  Dim rng As Range  Set d = CreateObject("scripting.dictionary")'  Set rng = Nothing  arr = [a1].CurrentRegion  For j = 1 To UBound(arr)    If Not d.exists(arr(j, 1)) Then      d(arr(j, 1)) = j    Else      r = d(arr(j, 1))      If arr(r, 2) >= arr(j, 2) Then        x = r        d(arr(j, 1)) = j      Else        x = j      End If      If rng Is Nothing Then        Set rng = Cells(x, 1)      Else        Set rng = Union(rng, Cells(x, 1))      End If    End If  Next j  If Not rng Is Nothing Then    rng.EntireRow.Delete  End IfEnd Sub

taller

Piano青墨

增加这个代码不行aar(j,2)>arr(d(arr(j,1)),2）then

准提部林

僅保留最早日期的行??
不一定是第一個日期??
原行保留//不匯總???

Piano青墨

Piano青墨

我想实现这样的效果。

Piano青墨

准提部林 发表于 2023-2-6 22:15
僅保留最早日期的行??
不一定是第一個日期??
原行保留//不匯總???

我想实现这样的效果。
客户名称        月份        销售数量       
a1        2023/2/1        10        保留
a1        2023/2/4        10       
a2        2023/2/7        10        保留
a2        2023/2/7        10        保留
a6        2023/2/11        10        保留
a6        2023/2/11        10        保留
a2        2023/2/7        10        保留
a2        2023/2/8        10       
a6        2023/2/15        10       
a6        2023/2/17        10