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

假设您的工作表中有一个包含一些重复值的列表，现在，您需要删除重复项，但保留找到重复值的第一行。在本文中，我们将向您展示在Excel中删除重复项但保留第一个实例的两种方法。

使用VBA代码删除重复项但保留第一个实例
使用Kutools for Excel删除重复项但保留第一个实例

使用VBA代码删除重复项但保留第一个实例

您可以运行以下VBA代码来删除列中的重复项但保留第一个实例。

1. 按 Alt + F11 打开 Microsoft Visual Basic for Applications 对话框。

2. 在 Microsoft Visual Basic for Applications 对话框中，点击 插入 > 模块。然后复制并将以下代码粘贴到代码窗口中。

VBA代码：删除重复项但保留第一个实例

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	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 键运行代码。在弹出的 KutoolsforExcel 对话框中，选择要删除重复项的区域，然后点击 确定 按钮。参见截图：

现在您可以看到所有重复的行（除了第一条记录）都已从选定的列范围中删除。参见截图：

使用Kutools for Excel删除重复项但保留第一个实例

除了VBA代码外，您可以使用 Kutools for Excel 插件的选择重复和唯一单元格工具轻松删除重复项但保留Excel中的第一个实例。

1. 选择要删除重复项但保留第一个实例的范围。然后点击 Kutools > 选择 > 选择重复和唯一单元格。

2. 在“选择重复和唯一单元格”对话框中，选择 重复值(排除第一个符合的) 选项，然后点击 确定 按钮。参见截图：

3. 在接下来的“选择重复和唯一单元格”对话框中，点击 确定。

4. 现在除了第一个实例之外的重复项已被选中，请按 删除 键删除选定的重复项。

备注：如果您想删除重复的行，只需在“选择重复和唯一单元格”对话框中勾选 选择整行 选项，然后应用右键菜单中的 删除 命令即可删除整个重复的行。

使用Kutools for Excel删除重复项但保留第一个实例