根据最新日期删除重复的行

Question

我需要删除重复的行。我使用下面编写的代码删除它们。一切都完美删除，但是如何使代码保留最新日期的字符串？例如，我有日期重复的行：20年7月27日和20年7月30日。我需要它来删除除日期最早的行以外的所有重复行。该代码不仅考虑了日期，而且考虑了重复的名称。

Dim a As Long
For a = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 1)) > 1 Then Rows(a).Delete
Next