Læg nedestående kode i et modul.
'Klik ind på en celle i den kolonne der skal undersøges, og start så makroen.
'Baggrunden på dubletterne bliver rød.
'Tjek om det er ok, så kan du køre den næste makro
'Den næste makro sletter rækkerne med de røde celler
'Der skal du også klikke ind på en celle i den kolonne der skal undersøges
Public Sub MakerDubletterRøde()
col = ActiveCell.Column
RowCount = Cells(65536, col).End(xlUp).Row
Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
For I = 1 To RowCount
If Cells(I, col).Interior.ColorIndex <> 3 Or Cells(I, col) <> "" Then
For I1 = I + 1 To RowCount
If Cells(I, col) = Cells(I1, col) Then
Cells(I1, col).Interior.ColorIndex = 3
End If
Next
End If
Next
End Sub
Public Sub FjernDubletterRøde()
col = ActiveCell.Column
RowCount = Cells(65536, col).End(xlUp).Row
Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
For I = 1 To RowCount
If Cells(I, col).Interior.ColorIndex = 3 Then
Cells(I, col).EntireRow.Delete Shift:=xlUp
I = I - 1
RowCount = RowCount - 1
End If
Next
End Sub