Hoppa till huvudinnehåll

Hur tar jag bort dubbletter men behåller resten av radvärdena i Excel?

I Excel tar det bort alla dubbletter och flyttas upp när du använder funktionen Ta bort dubbletter som skärmdump 1 som visas. I vissa fall kanske du vill ta bort dubbletter men behålla resten av radvärdena som skärmdump 2 visas. Nu, i det här fallet, kommer jag att introducera några knep för att ta bort dubbletter men hålla resten i Excel.

doc ta bort dubbletter håll vila 1 doc ta bort dubbletter håll vila 2

Ta bort dubbletter men behåll resten av radvärdena med Filter (3 steg)

Ta bort dubbletter men behåll resten av radvärdena med VBA (4 steg)

Ta bort dubbletter men behåll resten av radvärdena med Kutools för Excel (2 steg)bra idé3


Ta bort dubbletter men behåll resten av radvärdena med Filter

Med en formel och filterfunktionen kan du snabbt ta bort dubbletter men vila.

1. Välj en tom cell bredvid dataområdet, till exempel D2, typformel = A3 = A2, dra handtaget för automatisk fyllning till de celler du behöver. Se skärmdump:
doc ta bort dubbletter håll vila 3

2. Markera alla dataintervall inklusive formellcellen och klicka Data > Filter att möjliggöra Filter fungera. Se skärmdump:
doc ta bort dubbletter håll vila 4

3. Klicka på Filterikon i kolumn D (formelkolumnen) och kontrollera TURE från listrutan, se skärmdump:
doc ta bort dubbletter håll vila 5

4. klick OK, och sedan har alla dubbletter listats och välj alla dubbletter, tryck på Radera för att ta bort dem. Se skärmdump:
doc ta bort dubbletter håll vila 6

5. klick Data > Filter att inaktivera Filteroch ta bort formlerna efter behov. Du kan se att alla dubbletter har tagits bort och resten av värdena hålls i raden.
doc ta bort dubbletter håll vila 7


Ta bort dubbletter men behåll resten av radvärdena med VBA

I Excel finns en VBA-kod som också kan ta bort dubbletter men behålla resten av radvärden.

1. Tryck Alt + F11 för att visa Microsoft Visual Basic för applikationer fönster.

2. klick Insert > module och klistra in under koden i Modulerna.

VBA: Ta bort dubbletter men behåll resten av radvärdena

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

doc ta bort dubbletter håll vila 8

3. Tryck F5 för att köra koden, en dialogruta dyker upp för att påminna dig om att välja ett intervall för att ta bort dubbletter av. Se skärmdump:
doc ta bort dubbletter håll vila 9

4. klick OKnu har de dubbla värdena tagits bort från markeringen och lämnat tomma celler.
doc ta bort dubbletter håll vila 10


Ta bort dubbletter men behåll resten av radvärdena med Kutools för Excel

Om du har Kutools för excel - ett praktiskt och kraftfullt tilläggsverktyg installerat, du kan snabbt ta bort dubbletter men behålla vila eller radvärden på två sätt.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

När du har installerat Kutools för Excel, gör så här :(Gratis nedladdning Kutools för Excel nu!)

Metod 1 Sammanfoga samma celler (2 steg)

1. Välj de dubbla värdena, klicka Kutools > Slå ihop och dela > Slå samman samma celler. Se skärmdump:
doc ta bort dubbletter håll vila 11

2. Sedan har de dubbla värdena slagits samman i en cell. Och klicka Hem > Slå ihop och centrera > Slå samman celler för att dela dem. Se skärmdump:
doc ta bort dubbletter håll vila 12

Nu har resultatet visats så här:
doc ta bort dubbletter håll vila 13

Metod 2 Välj dubbletter och unika celler (4 steg)

1. Markera listan med data som du vill ta bort dubbletter från och klicka på Kutools > Välja > Välj Duplicera och unika celler. Se skärmdump:
doc ta bort dubbletter håll vila 14

2. I Välj Duplicera och unika celler dialogrutan, kontrollera Dubbletter (utom 1: a) alternativet i Regel sektion. Se skärmdump:
doc ta bort dubbletter håll vila 15

3. klick Ok, en dialogruta dyker upp för att påminna dig om hur många dubbletter som har valts, klicka OK för att stänga den. Se skärmdump:
doc ta bort dubbletter håll vila 16

4. Tryck sedan på Radera för att ta bort de valda dubbletterna.

doc ta bort dubbletter håll vila 17

Dricks: med Kutools för ExcelÄr Avancerade kombinera rader kan du kombinera dubblettvärdena och sedan göra några beräkningar på en annan kolumn enligt skärmbilden nedan. Det är full funktion utan begränsning på 30 dagar,vänligen ladda ner och få en gratis provperiod nu.
doc ta bort dubbletter håll vila 18

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 (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
iNFORMATION IS VERY USEFUL.SAVED A LOT OF TIME

THANKS.
This comment was minimized by the moderator on the site
It help me after long search thank bro
This comment was minimized by the moderator on the site
Thank you so much! This was very helpful!!
This comment was minimized by the moderator on the site
i would use the formula =A3<>A2 (not equal to ) so that it show up on top vs. last one on bottom.
This comment was minimized by the moderator on the site
i tried the formula =A2=A1, it also got the result of show up on top.
This comment was minimized by the moderator on the site
i tried the formula =A1=A2, it also get the same result of show up on top
This comment was minimized by the moderator on the site
the true false really helped!
This comment was minimized by the moderator on the site
The True/False solution is a smart trick. Thanks
This comment was minimized by the moderator on the site
Is it possible to merge the like cells without the Kutools add-in?
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
In the first method, instead of =A3=A2, you can do =A2=A1 to keep the first instance and delete the rest of the duplicates.
This comment was minimized by the moderator on the site
yes it works
This comment was minimized by the moderator on the site
Thank you for this comment! Exactly what I was looking for!
This comment was minimized by the moderator on the site
Thank you for this tutorial, it saves me from tons of work removing duplicates.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations