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 Sub3. 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:
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.
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
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...
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!
