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.
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)
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:
2. Vælg alle dataintervaller inklusive formelcellen, og klik data > filtre at muliggøre filtre fungere. Se skærmbillede:
3. Klik på Filterikon i kolonne D (formelkolonnen), og kontroller TURE fra rullelisten, se skærmbillede:
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:
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.
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
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:
4. klik OK, nu er duplikatværdierne fjernet fra markeringen og efterlader tomme celler.
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:
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:
Nu er resultatet vist som dette:
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:
2. i Vælg Duplicate & Unique Cells dialog, tjek Kopier (undtagen 1.) valgmulighed i Herske afsnit. Se skærmbillede:
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:
4. Tryk derefter på Slette nøgle for at fjerne de valgte duplikatværdier.
Fjern duplikater, men hold resten af rækken
Bedste kontorproduktivitetsværktøjer
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...
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!