如何在 Excel 中移除重复项并保留其余行值?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/15 14:36:17

重复数据会堵塞您的电子表格，使您难以准确评估或呈现信息。但不用担心，Excel 提供了强大的功能来帮助您移除重复项，同时保留数据集中的关键数据。学习如何使用这些技巧可以提高您的数据管理能力，无论您处理的是小型数据集还是大型数据集。

移除重复项并保留其余行值

在这里，我们将首先创建一个 VBA 模块，然后运行代码来完成任务。让我们看一个简单的过程，了解如何在 Excel 中删除重复项并保留其余行的值。

步骤 1

假设有一个包含重复值列表的 Excel 工作表。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >"查看代码"。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 >"模块">"复制"。

代码

Sub RemoveDuplicates()
   Dim xRow As Long
   Dim xCol As Long
   Dim xrg As Range
   Dim xl As Long
   On Error Resume Next
   Set xrg = Application.InputBox("Select a range:", "Remove Duplicate Keep", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
   xRow = xrg.Rows.Count + xrg.Row - 1
   xCol = xrg.Column
   'MsgBox xRow & ":" & xCol
   Application.ScreenUpdating = False
   For xl = xRow To 2 Step -1
      If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
         Cells(xl, xCol) = ""
      End If
   Next xl
   Application.ScreenUpdating = True
End Sub