如何在 Excel 中删除重复项但保留原始数据?

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

如果您曾经处理过大型数据集或从多个不同来源获取数据，那么重复条目很可能是个问题。通过删除重复值来清理数据至关重要，因为这些重复项可能会堵塞电子表格并影响数据准确性。本分步教程将向您展示如何在 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