如何在 Excel 中删除重复项但保留其余行值？

重复数据可能会堵塞您的电子表格，并使您难以准确评估或呈现信息。但不要害怕，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

步骤 3

然后单击 F5 运行模块。然后选择单元格范围，然后单击“确定”以完成任务。

F5 > 选择单元格 > 确定。

这就是如何在 Excel 中删除重复项但保留其余行值的方法。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中删除重复项但保留其余行值，以突出显示特定数据集。

更新于: 2023年9月7日

312 次浏览

开启你的 职业生涯

通过完成课程获得认证

开始学习
广告