Kan dupletter fjernes fra en kolonne?

Jeg lavede denne engang

stå i en celle, iden kolonne der skal tjekkes

den første her makerer dem røde

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

denne køres efter at du har tjekket om det er ok, så slettes de.

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

Findes der ikke en funktion i Excel uden VBA??...jeg er godt kendt i excel, men har faktisk holdt mig væk fra vba...

Nææ, der er ikke nogen, så derfor laver men dem selv.

okay, smart - jeg har lige prøvet og det ser faktisk ikke så svært ud...altså at indsætte og sætte i gang...men hvordan lærer man at lave disse koder...kan du anbefale en hjemmeside?

http://www.erlandsendata.no/, en der også ses på eksperten

http://web01.microsoft.se/tips/dk/default.asp

der er også ander, her på eksperten der har eksempel sider, på nettet

kunne du bruge det, så er her et svar. ;-))

Prøv:

1) rækkene efter den kolonne der indeholder dubletter
2) tilføj kolonne med formelen:
celle Y3: =hvis(x2=x3;ja;nej)
-kopier denne formel hele vejen ned.
hvor x er den kolonne der inderholder dubletter og y den nye kolonne
3) slå filter til hvor den nye kolonne er nej.

hvis kolonnen ikke er sorteret og kolonnen med index er kolonne F:
1. tilføj en extra kolonne
2. skriv denne formel i den nye kolonne
  =TÆL.HVIS($F$2:F2; F2)
  vær omhyggelig med at sætte dollartegnene som jeg har skrevet dem
3. sæt autofilter på
4. filter på alle værdier i den nye kolonne større end 1
5. slet alle synlige række

der er nu kun unikke værdier tilbage idet alle der har tallet 1 nu er unikke

jeg glemte lige at skrive under 2 at formlen skal kopieres hele vejen ned.

I princippet er det samme model som uffe's, bortset fra at ser ikke skal sorteres først.

Du kan også kigge her, der har jeg lavet en løsning med formler og sortering.
http://www.eksperten.dk/spm/459663

bak, tak for dit svar som er fremragende. kom med et svar

ok og tak for rosen :-)

Værs'go

En kommentar til denne, som jeg sidenhen har fundet ud af...brug PIVOTTABEL...så har man en komplet liste samlet.