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

有效地清理和組織資料集至關重要，因為重複資料會使您的研究混亂並導致不準確。本分步教程將向您展示如何在Excel電子表格中查詢重複行，並在保留基於日期列的最新條目時刪除它們。

無論您是處理銷售記錄、人事資料還是任何其他形式的資料集，它都將為您提供組織資料並確保分析準確性的能力。在本教程結束時，您將能夠自信地管理重複項，只保留最相關的資訊，這將幫助您節省時間並提高資料質量。因此，讓我們開始學習如何在Microsoft Excel中有效刪除重複行，同時保留最新的日期！

刪除重複行但保留最新日期的行

在這裡，我們將首先建立一個VBA模組，然後執行它來完成任務。讓我們來看一個簡單的過程，瞭解如何在Excel中刪除重複行但保留最新日期的行。

步驟1

考慮一個Excel表格，其中包含重複行，但日期不同，類似於下圖。

首先，右鍵單擊工作表名稱或選擇“檢視程式碼”以開啟VBA應用程式。

右鍵單擊 > 檢視程式碼。

步驟2

然後單擊“插入”並選擇“模組”，然後將以下程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

Sub test()
   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:", "Remove Duplicate Latest", 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", , "Remove Duplicate Rows"
      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