Hvordan fjernes dubletter, men beholder første instans i Excel?

Lad os sige, der er en liste over værdier i dit regneark, der indeholder nogle dubletter, nu skal du fjerne dubletterne, men hold den første række, hvor den duplikerede værdi findes. I denne artikel viser vi dig to metoder til fjernelse af dubletter, men hold første instans i Excel.

Fjern dubletter, men hold første instans med VBA-kode
Fjern dubletter, men hold første instans med Kutools til Excel

Fjern dubletter, men hold første instans med VBA-kode

Du kan køre nedenstående VBA-kode for at fjerne dubletter, men beholde første instans i en kolonne.

1. Trykke andre + F11 at åbne Microsoft Visual Basic til applikationer dialog boks.

2. i Microsoft Visual Basic til applikationer dialogboksen, klik indsatte > Moduler. Kopier og indsæt derefter nedenstående kode i kodevinduet.

VBA-kode: fjern dubletter, men behold første instans

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. Trykke F5 nøgle for at køre koden. I pop op KutoolsforExcel i dialogboksen, vælg det område, du vil fjerne dubletter, og klik derefter på OK knap. Se skærmbillede:

Nu kan du se alle duplikerede rækker undtagen at de første poster fjernes fra det valgte kolonneområde. Se skærmbillede:

Fjern dubletter, men hold første instans med Kutools til Excel

Ved siden af ​​VBA-koden kan du bruge Vælg Duplicate & Unique Cells nytte af Kutools til Excel tilføjelse for nemt at fjerne dubletter, men beholde de første forekomster i Excel.

1. Vælg det område, du vil fjerne dubletter, men bevar de første forekomster. Klik derefter på Kutools > Type > Vælg Duplicate & Unique Cells. 

2. i Vælg Duplicate & Unique Cells dialogboksen skal du vælge Kopier (undtagen 1.) og klik derefter på OK knap. Se skærmbillede:

3. I det følgende Vælg Duplicate & Unique Cells dialogboksen, klik OK.

4. Nu er duplikaterne valgt undtagen de første forekomster. Tryk på Slette nøgle for at fjerne de valgte dubletter.

Bemærk: Hvis du vil slette de duplikerede rækker, skal du bare kontrollere Vælg hele rækker valgmulighed i Vælg Duplicate & Unique Cells dialogboksen, og anvend derefter Slette kommandoen i højreklikmenuen for at fjerne hele duplikatrækkerne.

Fjern dubletter, men hold første instans med Kutools til Excel