Gå til hovedindhold

Hvordan fjernes dubletter, men beholder resten af ​​rækkeværdierne i Excel?

I Excel fjerner det alle duplikatværdier og flyttes op, når du anvender funktionen Fjern duplikater som vist skærmbillede 1. I nogle tilfælde vil du muligvis fjerne duplikater, men beholde resten af ​​rækkeværdierne som vist skærmbillede 2. Nu i dette tilfælde vil jeg introducere nogle tricks til at slette dubletter, men holde resten i Excel.

doc fjern dubletter hold hvile 1 doc fjern dubletter hold hvile 2

Fjern dubletter, men hold resten af ​​rækkeværdier med Filter (3 trin)

Fjern dubletter, men hold resten af ​​rækkeværdier med VBA (4 trin)

Fjern dubletter, men hold resten af ​​rækkeværdier med Kutools til Excel (2 trin)god idé3


Fjern dubletter, men hold resten af ​​rækkeværdier med Filter

Med en formel og filterfunktionen kan du hurtigt fjerne dubletter, men holde hvile.

1. Vælg en tom celle ud for dataområdet, f.eks. D2, typeformel = A3 = A2, træk autofyldhåndtaget ned til de celler, du har brug for. Se skærmbillede:
doc fjern dubletter hold hvile 3

2. Vælg alle dataintervaller inklusive formelcellen, og klik data > filtre at muliggøre filtre fungere. Se skærmbillede:
doc fjern dubletter hold hvile 4

3. Klik på Filterikon i kolonne D (formelkolonnen), og kontroller TURE fra rullelisten, se skærmbillede:
doc fjern dubletter hold hvile 5

4. klik OK, og så er alle dubletter blevet vist, og vælg alle duplikatværdierne, tryk på Slette for at fjerne dem. Se skærmbillede:
doc fjern dubletter hold hvile 6

5. klik data > filtre at deaktivere filtre, og fjern formlerne efter behov. Du kan se, at alle dubletter er fjernet, og resten af ​​værdierne holdes i rækken.
doc fjern dubletter hold hvile 7


Fjern dubletter, men hold resten af ​​rækkeværdier med VBA

I Excel er der en VBA-kode, der også kan fjerne dubletter, men beholde resten af ​​rækkeværdier.

1. Trykke Alt + F11 taster, der skal vises Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > module, og indsæt nedenstående kode til Moduler.

VBA: Fjern dubletter, men hold resten af ​​rækkeværdier

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 fjern dubletter hold hvile 8

3. Trykke F5 nøgle til at køre koden, en dialog vises, der minder dig om at vælge et område, du vil fjerne duplikatværdier fra. Se skærmbillede:
doc fjern dubletter hold hvile 9

4. klik OK, nu er duplikatværdierne fjernet fra markeringen og efterlader tomme celler.
doc fjern dubletter hold hvile 10


Fjern dubletter, men hold resten af ​​rækkeværdier med Kutools til Excel

Hvis du har Kutools til Excel - et praktisk og kraftfuldt tilføjelsesværktøj installeret, du kan hurtigt fjerne dubletter, men holde hvile- eller rækkeværdier på to måder.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter installation Kutools til Excel, gør venligst som nedenfor :(Gratis download Kutools til Excel nu!)

Metode 1 Flet de samme celler (2 trin)

1. Vælg de duplikerede værdier, klik Kutools > Flet og del > Flet de samme celler. Se skærmbillede:
doc fjern dubletter hold hvile 11

2. Derefter er de dobbelte værdier blevet flettet i en celle. Og klik Home > Flet & Center > Slå celler sammen for at opdele dem. Se skærmbillede:
doc fjern dubletter hold hvile 12

Nu er resultatet vist som dette:
doc fjern dubletter hold hvile 13

Metode 2 Vælg duplikerede og unikke celler (4 trin)

1. Vælg listen over data, du vil fjerne dubletter fra, og klik på Kutools > Type > Vælg Duplicate & Unique Cells. Se skærmbillede:
doc fjern dubletter hold hvile 14

2. i Vælg Duplicate & Unique Cells dialog, tjek Kopier (undtagen 1.) valgmulighed i Herske afsnit. Se skærmbillede:
doc fjern dubletter hold hvile 15

3. klik Ok, der vises en dialogboks for at minde dig om, hvor mange duplikater der er valgt, klik OK for at lukke det. Se skærmbillede:
doc fjern dubletter hold hvile 16

4. Tryk derefter på Slette nøgle for at fjerne de valgte duplikatværdier.

doc fjern dubletter hold hvile 17

Tip: med Kutools til Excel's Avancerede kombinere rækker værktøj, kan du kombinere de duplikerede værdier og derefter lave nogle beregninger på en anden kolonne som vist nedenfor. Det er fuld funktion uden begrænsning på 30 dage,download venligst og få en gratis prøveperiode nu.
doc fjern dubletter hold hvile 18

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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