RekenwonderNiels
Gebruiker
- Lid geworden
- 29 jul 2016
- Berichten
- 26
Beste iedereen,
Ik heb op deze website een werkende macro gevonden die boven aan het werkblad alle dubbele waardes in kolom A verwijderd.
Dit is precies wat ik nodig heb, zodat van alle dubbele regels alleen de onderste bewaard blijft. Nu wil ik alleen de kolom waarin de macro op dubbele waardes zoekt aanpassen.
In dit voorbeeld zoekt de macro in kolom A naar dubbele waardes, maar ik wil dubbele waardes zoeken in bijvoorbeeld kolom G. Ik kan een beetje VBA maar hier kom ik niet uit.
Ik heb op deze website een werkende macro gevonden die boven aan het werkblad alle dubbele waardes in kolom A verwijderd.
Code:
Sub Delete_Dups_Keep_Last()
Dim i As Long
Dim j As Long
Dim ROW_DELETED As Boolean
i = 1 'start on first row
Do While i <= ActiveSheet.UsedRange.Rows.Count
ROW_DELETED = False
For j = i + 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 1) = Cells(j, 1) Then
Rows(i).Delete
ROW_DELETED = True
Exit For
End If
Next j
If Not ROW_DELETED Then i = i + 1
Loop
End Sub
Dit is precies wat ik nodig heb, zodat van alle dubbele regels alleen de onderste bewaard blijft. Nu wil ik alleen de kolom waarin de macro op dubbele waardes zoekt aanpassen.
In dit voorbeeld zoekt de macro in kolom A naar dubbele waardes, maar ik wil dubbele waardes zoeken in bijvoorbeeld kolom G. Ik kan een beetje VBA maar hier kom ik niet uit.