Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe duplicaten te verwijderen, maar de eerste instantie in Excel te houden?

Laten we zeggen dat er een lijst met waarden in uw werkblad is die enkele duplicaten bevat, nu moet u de duplicaten verwijderen maar de eerste rij behouden waar de gedupliceerde waarde is gevonden. In dit artikel laten we twee methoden zien voor het verwijderen van duplicaten, maar houden we de eerste instantie in Excel.

Verwijder duplicaten maar houd de eerste keer met VBA-code

Verwijder duplicaten maar houd de eerste keer met Kutools voor Excel


Markeer eenvoudig alle dubbele of unieke waarden in een lijst

Doordat uw bureau Kutools for Excel's Selecteer Dupliceren en unieke cellen hulpprogramma, kunt u snel alle dubbele of gewenste waarden in een lijst in Excel markeren.

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 60-dagen. Download nu de gratis proefversie


Verwijder duplicaten maar houd de eerste keer met VBA-code


U kunt de onderstaande VBA-code gebruiken om duplicaten te verwijderen, maar de eerste instantie in een kolom bewaren.

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 bijvoegsel > module. Kopieer en plak vervolgens de onderstaande code in het codevenster.

VBA-code: verwijder duplicaten maar houd 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 Sub

3. druk op F5 sleutel om de code uit te voeren. In het opduiken KutoolsforExcel in het dialoogvenster, selecteer het bereik dat u wilt verwijderen en klik vervolgens op OK knop. Zie screenshot:

Nu kunt u alle dubbele rijen zien, behalve dat de eerste records uit het geselecteerde kolombereik worden verwijderd. Zie screenshot:


Verwijder duplicaten maar houd de eerste keer met Kutools voor Excel

Naast de VBA-code kunt u de Selecteer Dupliceren en unieke cellen nut van Kutools for Excel invoegtoepassing om eenvoudig duplicaten te verwijderen, maar de eerste exemplaren in Excel te houden.

Kutools for Excel : met meer dan 300 handige Excel invoegtoepassingen, gratis om te proberen zonder beperking in 60-dagen.

1. Selecteer het bereik dat u wilt verwijderen, maar houd de eerste exemplaren. Dan klikken Kutools > kiezen > Selecteer Dupliceren en unieke cellen. Zie screenshot:

2. In de Selecteer Dupliceren en unieke cellen dialoogvenster, selecteert u de Duplicaten (behalve 1st één) optie en klik vervolgens op de OK knop. Zie screenshot:

doc verwijder duplicaten1

3. In de volgende Selecteer Dupliceren en unieke cellen dialoogvenster, klik OK.

doc verwijder duplicaten1

4. Nu zijn de duplicaten geselecteerd, behalve de eerste exemplaren, druk op de Verwijder sleutel om de geselecteerde duplicaten te verwijderen.

Notes: Als u de dubbele rijen wilt verwijderen, hoeft u alleen maar te controleren Selecteer hele rijen optie in het Selecteer Dupliceren en unieke cellen dialoogvenster en vervolgens de Verwijder commando van het rechtsklikmenu om de volledige dubbele rijen te verwijderen.

Tip.Als u een gratis proefversie van dit hulpprogramma wilt hebben, gaat u naar download de software vrij eerst en vervolgens de bewerking volgens de bovenstaande stappen toepassen.


Verwijder duplicaten maar houd de eerste keer met Kutools voor Excel

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 60-dagen. Download de gratis proefversie nu!



Aanbevolen productiviteitstools voor Excel

Kutools voor Excel helpt u altijd om uw werk voor de tijd af te maken en uzelf te onderscheiden van een menigte

  • Meer dan 300 krachtige geavanceerde functies, ontworpen voor 1500-werkscenario's, verhoging van de productiviteit met 70%, geeft u meer tijd om voor uw gezin te zorgen en van het leven te genieten.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Brengt browsen met tabbladen en bewerken naar Microsoft Office, veel krachtiger dan de tabbladen van de browser

  • Office-tabblad is ontworpen voor Word, Excel, PowerPoint en andere Office-toepassingen: 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 verlaagt dagelijks honderden muisklikken voor u!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lelouch · 2 years ago
    I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell

    John I Red
    John I Blue
    John I Yellow

    Joe I Red
    Joe I Blue
    Joe I Yellow

    and turn it into

    John I Red
    I Blue
    I Yellow

    Joe I Red
    I Blue
    I Yellow

    Can you help on just keeping the first duplicate in a single cell only?