Hoe verwijder ik duplicaten maar bewaar ik de eerste instantie in Excel?
Laten we zeggen dat er een lijst met waarden in uw werkblad staat die enkele duplicaten bevat, nu moet u de duplicaten verwijderen, maar de eerste rij behouden waar de gedupliceerde waarde wordt gevonden. In dit artikel laten we u twee methoden zien om duplicaten te verwijderen, maar de eerste instantie in Excel te behouden.
Verwijder duplicaten maar bewaar de eerste instantie met VBA-code
Verwijder duplicaten maar bewaar de eerste instantie met Kutools voor Excel
Verwijder duplicaten maar bewaar de eerste instantie met VBA-code
U kunt de onderstaande VBA-code uitvoeren om duplicaten te verwijderen, maar de eerste instantie in een kolom houden.
1. druk op anders + F11 om de te openen Microsoft Visual Basic voor toepassingen dialoog venster.
2. In de Microsoft Visual Basic voor toepassingen dialoogvenster, klik Invoegen > Module. Kopieer en plak vervolgens de onderstaande code in het codevenster.
VBA-code: verwijder duplicaten maar bewaar de eerste instantie
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 F5 sleutel om de code uit te voeren. Bij het opduiken KutoolsvoorExcel dialoogvenster, selecteer het bereik waarvan u duplicaten wilt verwijderen en klik vervolgens op het OK knop. Zie screenshot:
Nu kunt u alle dubbele rijen zien, behalve dat de eerste records zijn verwijderd uit het geselecteerde kolombereik. Zie screenshot:
Verwijder duplicaten maar bewaar de eerste instantie met Kutools voor Excel
Naast de VBA-code kunt u de Selecteer Dubbele en unieke cellen nut van Kutools for Excel add-in om eenvoudig duplicaten te verwijderen, maar de eerste exemplaren in Excel te behouden.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Selecteer het bereik waarvan u duplicaten wilt verwijderen maar de eerste exemplaren wilt behouden. Dan klikken Kutools > kies > Selecteer Dubbele en unieke cellen.
2. In de Selecteer Dubbele en unieke cellen dialoogvenster, selecteert u het Duplicaten (behalve de eerste) optie en klik vervolgens op het OK knop. Zie screenshot:
3. In het volgende Selecteer Dubbele en unieke cellen dialoogvenster, klik OK.
4. Nu zijn de duplicaten geselecteerd, behalve de eerste exemplaren. Druk op de Verwijder toets om de geselecteerde duplicaten te verwijderen.
Note: Als u de dubbele rijen wilt verwijderen, hoeft u alleen maar te controleren Selecteer hele rijen optie in het Selecteer Dubbele en unieke cellen dialoogvenster en pas vervolgens het Verwijder commando van het rechtsklikmenu om de volledige dubbele rijen te verwijderen.
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Verwijder duplicaten maar bewaar de eerste instantie met Kutools voor Excel
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!
