Hoppa till huvudinnehåll

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.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

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:

doc ta bort dubbletter1

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

doc ta bort dubbletter1

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.

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


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

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell John I Red John I Blue John I Yellow Joe I Red Joe I Blue Joe I Yellow and turn it into John I Red I Blue I Yellow Joe I Red I Blue I Yellow Can you help on just keeping the first duplicate in a single cell only?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations