如何在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 次瀏覽

啟動您的職業生涯

透過完成課程獲得認證

開始
廣告