Hoe dubbele waarden verwijderen maar de eerste instantie behouden in Excel?
Stel dat er een lijst met waarden in uw werkblad staat die enkele duplicaten bevat, en u moet nu de duplicaten verwijderen, maar de eerste rij waar de gedupliceerde waarde wordt gevonden, behouden. In dit artikel laten we u twee methoden zien om dubbele waarden te verwijderen, maar de eerste instantie in Excel te behouden.
Dubbele waarden verwijderen maar de eerste instantie behouden met VBA-code
Dubbele waarden verwijderen maar de eerste instantie behouden met Kutools voor Excel
Dubbele waarden verwijderen maar de eerste instantie behouden met VBA-code
U kunt de onderstaande VBA-code uitvoeren om dubbele waarden te verwijderen, maar de eerste instantie in een kolom te behouden.
1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande code in het codevenster.
VBA-code: dubbele waarden 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 F5-toets om de code uit te voeren. Selecteer in het pop-upvenster van KutoolsforExcel het bereik waarvan u de duplicaten wilt verwijderen en klik vervolgens op de knop OK. Zie screenshot:
Nu ziet u dat alle dubbele rijen, behalve de eerste records, zijn verwijderd uit het geselecteerde kolombereik. Zie screenshot:
Dubbele waarden verwijderen maar de eerste instantie behouden met Kutools voor Excel
Naast de VBA-code kunt u het hulpprogramma Dubbele & Unieke Cellen selecteren van de Kutools voor Excel-invoegtoepassing gebruiken om eenvoudig dubbele waarden te verwijderen, maar de eerste instanties in Excel te behouden.
1. Selecteer het bereik waarvan u de duplicaten wilt verwijderen, maar de eerste instanties wilt behouden. Klik vervolgens op Kutools > Selecteren > Dubbele & Unieke Cellen selecteren.
2. Selecteer in het venster Dubbele & Unieke Cellen selecteren de optie Duplicaatwaarden (Eerste overeenkomst uitsluiten) en klik vervolgens op de knop OK. Zie screenshot:
3. Klik in het volgende venster Dubbele & Unieke Cellen selecteren op OK.
4. Nu zijn de duplicaten geselecteerd, behalve de eerste instanties. Druk op de Verwijderen-toets om de geselecteerde duplicaten te verwijderen.
Opmerking: Als u de dubbele rijen wilt verwijderen, hoeft u alleen de optie Selecteer hele rij aan te vinken in het venster Dubbele & Unieke Cellen selecteren en vervolgens het Verwijderen-commando van het rechtermuisknopmenu te gebruiken om de hele dubbele rijen te verwijderen.
Als u een gratis proefperiode (30-dag) van dit hulpprogramma wilt, klikt u op de link om het te downloaden, en gaat u vervolgens naar de bewerking toepassen volgens de hierboven beschreven stappen.
Dubbele waarden verwijderen maar de eerste instantie behouden met Kutools voor Excel
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen