• 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.

duplicaten verwijderen per regel

Status
Niet open voor verdere reacties.
M

mariannevanh

Terugkerende gebruiker
Lid geworden
14 dec 2004
Berichten
2.085
Ik heb een Excel-bestand met 65.000 regels
Is er een functie die per regel de duplicaten verwijdert?
In het voorbeeld bestand moet in rij 1 een van de cellen met inhoud "A" worden verwijderd
in de rijen 2 en 3 moet niets worden verwijderd
in rij 4 een van de cellen met inhoud "G" worden verwijderd
in rij 1 een van de cellen met inhoud "H" worden verwijderd

Bekijk bijlage hm20170922.xlsx

Vriendelijke groet,
Guido
 
Het simpelst snel gezegt is per 15.000 rijen copieren/plakken met transponeren.
Hierna dubbele waarden verwijderen onder het tab gegevens.
 
Je kan een hulptabel maken en de oude daarna verwijderen:
zet deze in D1 en trek naar rechts en beneden zover als nodig.
Code: 
=ALS(AANTAL.ALS(A1:C1;A1)>1;"";A1)
 
Macrootje:
Code: 
Sub tsh()
    Dim Br, Bq
    Dim i As Long, j As Long, t As Long
    Dim Rng As Range
    
    Set Rng = Sheets(1).Cells(1).CurrentRegion
    Br = Rng
    With CreateObject("System.Collections.Arraylist")
        For i = 1 To UBound(Br)
            t = 0
            ReDim Bq(UBound(Br, 2) - 1)
            For j = 1 To UBound(Br, 2)
                If IsError(Application.Match(Br(i, j), Bq, 0)) Then
                    Bq(t) = Br(i, j)
                    t = t + 1
                End If
            Next
            .Add Bq
        Next
        Rng = Application.Index(.ToArray, 0)
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan