如何在Excel中刪除重複的行，但保留具有最新日期的那一行？

Author Xiaoyang Last modified 2025-08-23

A screenshot of data with duplicates and dates in 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鍵執行此代碼，會彈出一個提示框提醒您選擇要使用的數據範圍，請參見截圖：

A screenshot of selecting a data range to remove duplicates and keep the most recent date

4. 然後點擊確定，A列中的重複值已被刪除，並且保留了B列中的最新日期。請參見截圖：

A screenshot of Excel after removing duplicates and keeping the latest date using VBA

注意：為了成功應用上述代碼，包含重複值的列必須位於日期列的左側。

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

如果您不熟悉代碼，請不要擔心，功能強大的工具——Kutools for Excel的高級合併行功能可以幫助您輕鬆完成此任務。

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

安裝Kutools for Excel後，請按照以下步驟操作：

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

2. 然後點擊Kutools > 合併與分割 > 高級合併行，請參見截圖：

A screenshot of selecting the Advanced Combine Rows option in Kutools tab on the ribbon

3. 在根據列合併行對話框中，點擊要刪除重複值的列名，然後點擊主鍵，請參見截圖：

A screenshot of setting the primary key in the Combine Rows Based on Column dialog box

4. 繼續點擊要保留最近日期的另一列名，然後點擊計算 > 最大值，請參見截圖：

A screenshot of selecting the Max function to keep the latest date

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

A screenshot of the final result after removing duplicates and keeping the latest date in Excel

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

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

Kutools for Excel：超過 300 種實用工具任您使用！永久免費享受AI功能！立即下載！

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多