søg efter dubletter

http://www.eksperten.dk/spm/510448

Alternativt:

'Marker kolonne, kør sub
Sub SletDubletter()
Dim c, r, t, t2
c = ActiveCell.Column
r = Cells(65500, c).End(xlUp).Row
Range(Cells(1, c), Cells(65500, c).End(xlUp)).Select
For t = 1 To r
If Cells(t, c) <> "" Then
For t2 = t + 1 To r
If Cells(t, c) = Cells(t2, c) Then
'ActiveCell.Offset(0, 1) = Cells(t2, c) ' Flyt til næste kolonne
Cells(t2, c) = ""
End If
Next
End If
Next
'Selection.Sort Key1:=Range(ActiveCell.Address), Order1:=xlAscending ' Sorter
ActiveCell.Select
End Sub

Når du har fjernet dine dubletter, kan datavalidering styre det.

Vi siger at det unikke nummer står i A kolonnen.

Marker A kolonnen
Data > Datavalidering
Tillad = brugerdefineret

Formlen er
=TÆL.HVIS(A:A;A1)<2

Nu kan du ikke taste samme værdi ind 2 gange i kolonne A, hvis du gør det kommer der fejl

Takker for de hurtige svar

men kan de bruges ? :-)

Jepz