Hoe verwijder je dubbele items in Excel, maar behoud je de eerste instantie?
Stel dat u een lijst met waarden hebt in uw werkblad die enkele duplicaten bevat. U wilt de duplicaten verwijderen, maar de eerste rij behouden waarin elke gedupliceerde waarde voorkomt. In dit artikel tonen we u twee methoden om duplicaten te verwijderen terwijl de eerste instantie in Excel intact blijft.
Dubbele items verwijderen maar de eerste instantie behouden met VBA-code
Dubbele items verwijderen maar de eerste instantie behouden met Kutools voor Excel
Dubbele items verwijderen maar de eerste instantie behouden met VBA-code
U kunt de onderstaande VBA-code uitvoeren om dubbele items te verwijderen en alleen de eerste instantie in een kolom te behouden.
1. Druk op Alt+F11 om het dialoogvenster Microsoft Visual Basic for Applications te openen.
2. Klik in het dialoogvenster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande code in het codovenster.
VBA-code: Dubbele items verwijderen maar de eerste instantie behouden
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. Druk op de toets F5 om de code uit te voeren. Selecteer in het verschijnende dialoogvenster Kutools for Excel het bereik waaruit u dubbele items wilt verwijderen en klik daarna op de knop OK. Zie screenshot:
Nu ziet u dat alle dubbele rijen, behalve de eerste record, zijn verwijderd uit het geselecteerde kolombereik. Zie screenshot:
Dubbele items verwijderen maar de eerste instantie behouden met Kutools voor Excel
Naast de VBA-code kunt u ook het hulpprogramma Selecteer duplicaat/unieke cellen van de invoegtoepassing Kutools voor Excel gebruiken om eenvoudig dubbele items te verwijderen, maar de eerste instanties te behouden in Excel.
1. Selecteer het bereik waaruit u dubbele items wilt verwijderen, maar waarvan u de eerste instanties wilt behouden. Klik daarna op Kutools > Selecteren > Selecteer duplicaat/unieke cellen.
2. Selecteer in het dialoogvenster Selecteer duplicaat/unieke cellen de optie Duplicaatwaarden (Eerste overeenkomst uitsluiten), en klik daarna op de knop OK. Zie screenshot:
3. Klik in het volgende dialoogvenster Selecteer duplicaat/unieke cellen op OK.
4. Nu zijn de duplicaten geselecteerd, behalve de eerste instanties. Druk op de toets Delete om de dubbele waarden te verwijderen.
Opmerking: Als u dubbele rijen wilt verwijderen, vinkt u eenvoudigweg de optie Selecteer gehele rij aan in het dialoogvenster Selecteer duplicaat/unieke cellen en past u vervolgens het commando Verwijderen toe via het contextmenu om de volledige dubbele rij te verwijderen.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Dubbele items verwijderen maar de eerste instantie behouden met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins