如何刪除重複的行，但在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。 然後點擊 OK，則刪除了A列中的重複值，並根據需要保留B列中的最新日期。 看截圖：

備註：要成功應用上述代碼，必須在日期列的左側找到包含重複值的列。

使用Kutools for Excel刪除重複的值並將最新日期保留在另一列中

如果您不熟悉代碼，請不用擔心，強大的實用程序- 高級合併行 of Excel的Kutools 可以幫助您輕鬆解決此任務。

安裝後 Excel的Kutools，請執行以下操作：

1。 選擇要刪除重複項並保留另一列中的最新日期的數據范圍。

2. 然後點擊 庫工具 > 合併與拆分 > 高級合併行，請參見屏幕截圖：

3。 在 根據列合併行 對話框中，單擊要刪除重複值的列名，然後單擊 首要的關鍵，請參見屏幕截圖：

4。 繼續單擊您要保留最新日期的另一列名稱，然後單擊 計算 > Max，請參見屏幕截圖：

5。 然後點擊 Ok 按鈕關閉此對話框，現在，您可以看到A列中的重複名稱已被刪除，僅在相應的B列中保留了最新日期，請參見屏幕截圖：

立即下載和免費試用Excel的Kutools！

演示：使用Kutools for Excel刪除重複的值並將最新日期保留在另一列中