如何在 Excel 中移除重複行，同時保留日期最新的那一筆資料？

作者Xiaoyang修改日期2024-10-22

我有一個資料範圍，其中 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 欄中的最新日期。請參閱截圖：

使用 VBA 移除重複項目並保留最新日期後的 Excel 螢幕截圖

注意：若要成功套用上述程式碼，包含重複值的欄位必須位於日期欄位左側。

使用 Kutools for Excel 移除重複值並在另一欄保留最新日期

如果您不熟悉程式碼，別擔心！強大的工具－高級合併行（屬於）Kutools for Excel）能輕鬆幫您完成這項任務！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依照下列步驟操作：

1. 選取您要刪除重複項目並保留另一欄中最新日期的數據區域。

2. 接著點選 Kutools> 合併和拆分> 高級合併行，請參閱截圖：

在功能區 Kutools 索引標籤中選取「進階合併列」選項的螢幕截圖

3. 在以欄為基準對話方塊中，點選您要移除重複值的欄位名稱，然後點選主索引鍵，請參閱截圖：

在「根據欄位合併列」對話方塊中設定主鍵的螢幕截圖

4. 繼續點選您要保留最新日期的另一個欄位名稱，然後點選計算> 最大值，請參閱截圖：

選取 Max 函數以保留最新日期的螢幕截圖

5. 接著點選確定按鈕關閉此對話方塊，此時您可以看到 A 欄中的重複姓名已被移除，僅保留對應 B 欄中的最新日期，請參閱截圖：

在 Excel 中移除重複項目並保留最新日期後的最終結果螢幕截圖

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

示範：使用 Kutools for Excel 移除重複值並在另一欄保留最新日期

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多