如何在 Excel 中删除重复行并保留最新日期的行?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/15 11:56:17

有效地清理和整理数据集至关重要，因为重复数据会使您的研究变得混乱，并使其不准确。本分步教程将向您展示如何在 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