Hoe verwijder ik duplicaten maar bewaar de rest van de rijwaarden in Excel?
In Excel worden alle dubbele waarden verwijderd en naar boven verplaatst wanneer u de functie Duplicaten verwijderen toepast zoals weergegeven in screenshot 1. In sommige gevallen wilt u misschien duplicaten verwijderen, maar de rest van de rijwaarden behouden zoals weergegeven in screenshot 2. Nu, in dit geval, zal ik enkele trucs introduceren voor het verwijderen van duplicaten, maar de rest in Excel bewaren.
Verwijder duplicaten maar bewaar de rest van rijwaarden met Filter (3 stappen)
Verwijder duplicaten maar bewaar de rest van rijwaarden met VBA (4 stappen)
Verwijder duplicaten maar bewaar de rest van rijwaarden met Kutools voor Excel (2 stappen)
Verwijder duplicaten maar bewaar de rest van rijwaarden met Filter
Met een formule en de filterfunctie kunt u snel duplicaten verwijderen maar rust houden.
1. Selecteer een lege cel naast het gegevensbereik, bijvoorbeeld D2, typ formule = A3 = A2, sleep de automatische vulgreep naar de cellen die je nodig hebt. Zie screenshot:
2. Selecteer alle gegevensreeksen, inclusief de formulecel, en klik op Data > FILTER in staat te stellen FILTER functie. Zie screenshot:
3. Klik op de Filter icoon in kolom D (de formulekolom) en vink aan TURE uit de vervolgkeuzelijst, zie screenshot:
4. klikken OK, en dan zijn alle duplicaten lijst, en selecteer alle dubbele waarden, druk op Verwijder sleutel om ze te verwijderen. Zie screenshot:
5. klikken Data > FILTER uit te schakelen FILTERen verwijder de formules als je nodig hebt. U kunt zien dat alle duplicaten zijn verwijderd en dat de rest van de waarden in de rij wordt bewaard.
Verwijder duplicaten maar bewaar de rest van rijwaarden met VBA
In Excel is er een VBA-code die ook duplicaten kan verwijderen, maar de rest van rijwaarden kan behouden.
1. druk op Alt + F11 toetsen om weer te geven Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > modulee, en plak onderstaande code in het Module.
VBA: verwijder duplicaten maar bewaar de rest van de rijwaarden
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. druk op F5 sleutel om de code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een bereik te selecteren waaruit dubbele waarden moeten worden verwijderd. Zie screenshot:
4. klikken OK, nu zijn de dubbele waarden verwijderd uit de selectie en laten lege cellen achter.
Verwijder duplicaten maar bewaar de rest van rijwaarden met Kutools voor Excel
Als je Kutools voor Excel - een handige en krachtige invoegtoepassing ge茂nstalleerd, u kunt snel duplicaten verwijderen, maar rust- of rijwaarden behouden via twee richtingen.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt :(Gratis download Kutools voor Excel nu!)
Methode 1 Voeg dezelfde cellen samen (2 stappen)
1. Selecteer de dubbele waarden, klik op Kutools > Samenvoegen en splitsen > Voeg dezelfde cellen samen. Zie screenshot:
2. Vervolgens zijn de dubbele waarden samengevoegd tot 茅茅n cel. En klik Home > Samenvoegen en centreren > Ontkoppel cellen om ze te splitsen. Zie screenshot:
Nu is het resultaat als volgt weergegeven:
Methode 2 Selecteer dubbele en unieke cellen (4 stappen)
1. Selecteer de lijst met gegevens waaruit u duplicaten wilt verwijderen en klik op Kutools > kies > Selecteer Dubbele en unieke cellen. Zie screenshot:
2. In de Selecteer Dubbele en unieke cellen dialoogvenster, vink aan Duplicaten (behalve de eerste) optie in het Regel sectie. Zie screenshot:
3. klikken Ok, er verschijnt een dialoogvenster om u eraan te herinneren hoeveel duplicaten zijn geselecteerd, klik op OK om het te sluiten. Zie screenshot:
4. Druk vervolgens op Verwijder toets om de geselecteerde dubbele waarden te verwijderen.
Verwijder duplicaten maar bewaar de rest van de rij
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!