Fjerne dubletter i rækker med ens kriterier

Hvis col1=A og col2=B er tekst, så lav en col3=C med formlen
=A1&B2 
i col4
=tæl.hvis(C$1:C1;C1) (bemærk 1 dollartegn i første reference)
Formlen tæller antallet af forekomster
Brug =hvis(tæl.hvis(c$1:c1;c1)=1;1;0), hvis du blot vil markere om det er en dublet

hvis det er office 2007 du har, kan du indsætte en tabel, og så får du en funktion i dit "bånd" som hedder fjern dubleter

Her er en løsning som brugeren Bak har hjulpet mig med.
Se evt. http://www.eksperten.dk/spm/610103
Den kan tjekke for dubletter i én kolonne eller for dubletter i kolonne A til I.

Public Sub MakerDubletterRødeAtilI()
Dim rCell As Range
Dim lLastRow As Long
  Application.ScreenUpdating = False
  lLastRow = Range("A65536").End(xlUp).Row
  Range("A1:I" & lLastRow).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
  For Each rCell In Range("A1:A" & lLastRow)
      If rCell.EntireRow.Hidden = True Then rCell.Interior.Color = vbRed
  Next
  ActiveSheet.ShowAllData
  Application.ScreenUpdating = True
End Sub

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

Mvh.
Quark-8382