如何在Excel中删除重复项但保留第一个实例？

如果您曾经处理过大型数据集或来自多个不同来源的数据，则重复项很可能是一个问题。删除重复值以清理数据至关重要，因为这些重复值可能会阻塞您的电子表格并影响数据准确性。本分步教程将向您展示如何在Excel表格中查找重复项并删除它们，同时保留每个唯一条目的第一个实例。通过简化用于分析、报告或进一步处理的数据，您可以维护数据完整性。

无论您是Excel新手还是希望提高数据管理能力的高级用户，本教程都将为您提供有效地从电子表格中删除重复项同时保留原始数据所需的技能和信息。

删除重复项但保留第一个实例

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

步骤1

考虑一个Excel表格，其中包含重复行的列表。

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

右键单击 > 查看代码。

步骤2

然后单击“插入”，选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "Remove Duplicates Keep"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

步骤3

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

这就是如何在Excel中删除重复项但保留第一个实例的方法。

结论

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

更新于：2023年9月7日

421 次浏览

启动您的职业生涯

通过完成课程获得认证

开始
广告