Remove Duplicate Rows variable number of columns

Status
Niet open voor verdere reacties.

BenjaminOverkempe

Nieuwe gebruiker
Lid geworden
15 mei 2017
Berichten
1
Hallo,

Ik probeer rijen die dubbel in mijn data staan te verwijderen.
De data staat bij mij in kolom 2 tot en met LastCol, waarbij LastCol een variabele is die ik in een function heb berekend. Deze heb ik nu even achter een ' geplaatst omdat jullie deze functie niet hebben. in plaats daarvan werk ik nu even met Bakjes.UsedRange
Nu heb ik de code zo geschreven dat deze controleert of er rijen dubbel zijn op basis van de 1e, 2e, 3e en 4e kolom. (weet niet eens zeker of dit wel klopt)

Ik wil dat ik dubbelen kan verwijderen op basis van een variabel aantal kolommen.

Enig idee hoe ik dit kan programmeren?

met vriendelijke groeten,
Benjamin
Code:
Sub RemoveDuplicateRows()

Dim LastCell, rng As Range
Dim Bakjes As Worksheet

Set Bakjes = ThisWorkbook.Sheets("Bakjes")

LastColBakjes = Bakjes.UsedRange.Columns(Bakjes.UsedRange.Columns.Count).Column

'LastColBakjes = LastColumn(Bakjes)
LastRowBakjes = Bakjes.Cells(Rows.Count, 2).End(xlUp).Row 'aantal rijen in Bakjes

Set LastCell = Sheets("Bakjes").Cells(LastRowBakjes, LastColBakjes)

    With ActiveSheet
        Set rng = Bakjes.Range(Bakjes.Cells(1, 2), Bakjes.Cells(LastRowBakjes, LastColBakjes))
        rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
    End With


End Sub
 
Laatst bewerkt:
Je krijgt waarschijnlijk wel een reactie als je een dummy-bestand plaatst.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan