Hur tar jag bort dubbletter men behåller första instansen i Excel?

Låt oss säga att det finns en lista med värden i ditt kalkylblad som innehåller några dubbletter. Nu måste du ta bort dubbletterna men behålla den första raden där det duplicerade värdet finns. I den här artikeln visar vi dig två metoder för att ta bort dubbletter, men behåll första instansen i Excel.

Ta bort dubbletter men behåll första instansen med VBA-kod
Ta bort dubbletter men behåll första instansen med Kutools för Excel

Ta bort dubbletter men behåll första instansen med VBA-kod

Du kan köra nedanstående VBA-kod för att ta bort dubbletter men behålla första instansen i en kolumn.

1. Tryck andra + F11 att öppna Microsoft Visual Basic för applikationer dialog ruta.

2. I Microsoft Visual Basic för applikationer dialogrutan, klicka Insert > Modulerna. Kopiera och klistra sedan in koden nedan i kodfönstret.

VBA-kod: ta bort dubbletter men behåll första instansen

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. Tryck F5 för att köra koden. I pop-up KutoolsforExcel i dialogrutan, välj det intervall du vill ta bort dubbletter och klicka sedan på OK knapp. Se skärmdump:

Nu kan du se alla dubbla rader förutom att de första posterna tas bort från det valda kolumnområdet. Se skärmdump:

Ta bort dubbletter men behåll första instansen med Kutools för Excel

Förutom VBA-koden kan du använda Välj Duplicera och unika celler nytta av Kutools för Excel tillägg för att enkelt ta bort dubbletter men behålla de första instanserna i Excel.

1. Välj det intervall du vill ta bort dubbletter men behåll de första instanserna. Klicka sedan Kutools > Välja > Välj Duplicera och unika celler. 

2. I Välj Duplicera och unika celler dialogrutan väljer du Dubbletter (utom 1: a) och klicka sedan på OK knapp. Se skärmdump:

3. I det följande Välj Duplicera och unika celler dialogrutan, klicka OK.

4. Nu är dubbletterna markerade förutom de första instanserna, tryck på Radera för att ta bort de valda dubbletterna.

Anmärkningar: Om du vill ta bort dubbletteraderna behöver du bara kontrollera Välj hela rader alternativet i Välj Duplicera och unika celler dialogrutan och använd sedan Radera kommandot på högerklickmenyn för att ta bort hela duplicerade rader.

Ta bort dubbletter men behåll första instansen med Kutools för Excel