如何刪除重復的行但在Excel中保留最新的行

發布:未知文本批量工具

如何刪除重復的行，但在Excel中保留最新的行？

我有一系列數據，其中包含A列中的某些重復值，并且在B列中填充了某些日期，現在，我需要刪除A列中的重復行，但要保留對應列B中的最新日期，如以下屏幕截圖所示，您有什么好主意可以快速，輕松地在Excel中解決此問題？

刪除重復的值，并使用VBA代碼將最新日期保留在另一列中

刪除重復值并將最近日期保留在另一列中 Kutools for Excel

刪除重復的值，并使用VBA代碼將最新日期保留在另一列中

以下VBA代碼可以幫助您刪除重復的單元格，并保留另一列中的最新日期，請執行以下操作：

1。按住 ALT + F11 鍵，然后打開 Microsoft Visual Basic應用程序 窗口。

2。點擊插頁 > 模塊，然后將以下宏粘貼到模塊窗口。

VBA代碼：刪除重復的值并保留最新日期

Sub test()updateby ExtendofficeDim xRng As RangeDim xTxt As StringOn Error Resume NextxTxt = Application.ActiveWindow.RangeSelection.AddressSet xRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)If xRng Is Nothing Then Exit SubIf (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) ThenMsgBox "the used range is invalid", , "Kutools for Excel"Exit SubEnd IfxRng.Sort key1:=xRng.Cells(1, 1), Order1:=xlAscending, key2:=xRng.Cells(1, 2), Order2:=xlDescending, Header:=xlGuessxRng.RemoveDuplicates Columns:=1, Header:=xlGuessEnd Sub

3. 然后按 F5 鍵執行此代碼，然后會彈出一個提示框，提醒您選擇要使用的數據范圍，請參見屏幕截圖：

4。然后點擊 OK，則刪除了A列中的重復值，并根據需要保留B列中的最新日期。看截圖：

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

刪除重復值并將最近日期保留在另一列中 Kutools for Excel

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

Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在內.前往下載購買貝寶/ MyCommerce

安裝后 Kutools for Excel，請執行以下操作：

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

2. 然后點擊 Kutools > 合并與拆分 > 高級組合行，請參見屏幕截圖：

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

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

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