如何在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. 現在除了第一個實例外的所有重複項都被選中，請按 Delete 鍵刪除選中的重複項。

注意：如果您想刪除重複的行，只需在 選擇重複與唯一單元格 對話框中勾選 選擇整行 選項，然後應用右鍵菜單中的 刪除 命令來刪除整個重複的行。

使用Kutools for Excel刪除重複項但保留第一個實例