• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Dubbele regels verwijderen

Status
Niet open voor verdere reacties.

rob91

Gebruiker
Lid geworden
10 okt 2008
Berichten
198
Hallo,
Is er in excel een mogelijkheid om automatisch volledig indentieke regels uit een overzicht te verwijderen, zodat ik er van iedere regel er maar 1 overhoud?
Ik heb dus een overzicht waar sommige regels 10x in staan en sommige 6x of 2x enz.
Ik wil dus van ieder artikel maar 1 regel overhouden.
 
Hier een codevoor verwijderen van dubbelen. alleen ff aanpassen aan je eigen situatie


Code:
Sub dubbelverwijderen()
    'Code voor het verwijderen van dubbelen waarden in dezelfde kolom. Loopt door_
    'alle vijf de kolommen heen
      Application.ScreenUpdating = False
For J = 1 To 5
   
        Range(Cells(1, J), Cells(1, J).End(xlDown)).Sort Key1:=Cells(1, J), Header:=xlYes, Orientation:=xlTopToBottom
        Set currentCell = Worksheets(1).Cells(1, J)
        Do While Not IsEmpty(currentCell)
        Set nextCell = currentCell.Offset(1, 0)
        If nextCell.Value = currentCell.Value Then
        currentCell.Delete
        
        End If
        Set currentCell = nextCell
        Loop
Next J
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan