如何在Excel中删除重复行但保留最新日期的行？

我有一个数据区域，其中A列包含一些重复值，而B列则填充了一些日期。现在，我需要删除A列中的重复行，但要保留与B列对应的最新日期，如下图所示。您是否有任何好方法可以快速轻松地在Excel中解决这个问题？

使用VBA代码删除重复值并保留另一列中的最近日期

使用Kutools for Excel删除重复值并保留另一列中的最近日期

使用VBA代码删除重复值并保留另一列中的最近日期

以下VBA代码可以帮助您删除重复单元格，并保留另一列中的最新日期，请按照以下步骤操作：

1. 按住ALT + F11键，打开Microsoft Visual Basic for Applications窗口。

2. 点击“插入” > “ 模块”，然后将以下宏粘贴到 模块窗口中。

VBA代码：删除重复值并保留最近日期

Sub test()
'updateby Extendoffice 
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) Then
        MsgBox "the used range is invalid", , "Kutools for Excel"
        Exit Sub
    End If
    xRng.Sort key1:=xRng.Cells(1, 1), Order1:=xlAscending, key2:=xRng.Cells(1, 2), Order2:=xlDescending, Header:=xlGuess
    xRng.RemoveDuplicates Columns:=1, Header:=xlGuess
End Sub

3. 然后按F5键执行此代码，会弹出一个提示框，提醒您选择要使用的数据区域，见截图：

4. 然后点击“确定”，A列中的重复值已被删除，并且保留了B列中的最新日期，如您所需。见截图：

注意：为了成功应用上述代码，包含重复值的列必须位于日期列的左侧。

使用Kutools for Excel删除重复值并保留另一列中的最近日期

如果您不熟悉代码，请不要担心，强大的工具——Kutools for Excel的高级合并行功能可以帮助您轻松完成此任务。

安装Kutools for Excel后，请按照以下步骤操作：

1. 选择要删除重复项并保留另一列中最近日期的数据区域。

2. 然后点击Kutools > 合并与拆分 > 高级合并行，见截图：

3. 在基于列合并行对话框中，点击要删除重复值的列名，然后点击主键，见截图：

4. 继续点击要保留最近日期的另一列名，然后点击计算 > 最大值，见截图：

5. 然后点击“确定”按钮关闭此对话框，现在，您可以看到A列中的重复名称已被删除，并且只保留了B列中对应的最新日期，见截图：

演示：使用Kutools for Excel删除重复值并保留另一列中的最近日期