Dubletter

hvad med almindelig søg erstat funktion

how. skal bruge en udførlig manual

MC

Jeg anvender en klamp og fusk metode *S*

Jeg starter med at sortere data alfabetisk/numerisk.
Derefter tilføjer følgende formel i en ny kolonne: =hvis(A2=A1;\"UPS\";\"\")
Denne kopieres derefter hele vejen ned gennem arket
Så konverteres den til tekst/værdi
Herefter sorteres data igen, denne gang efter den nye kolonne.
Slutteligt slettes de rækker, hvor teksten \"UPS\" står

Som sagt, er det noget klamp og fusk, men det virker *S*

MC,
sorter først dine emner, så de står i række følge.
vælg dernæst en ny kolonne, som en hjælpe kolonne.
Hvis emnerne står i kolonne A og starter i række 2
Vil jeg i B2 skrive = A2, i B3 vil jeg skrive følgende formel, som du kan kopiere ned igennem alle dine rækker.
=hvis(A3=A2;\"\";A3)

denne formel kopiere du ned gennem hele arket, bagefter formater du hele række B om til værdier via copy/pastespecial indsæt værdier. Dernæst sorter du efter række B. De rækker, som er blanke i kolonne B, er dubletter.

MVH
Claus

Oki metoden, som b_hansen er den samme som min, og han kom først.

Der er en meget lettere metode beregnet til formålet

Markér listen med de tal du skal have filtreret
Gå op i menuen \"Data\" Vælg filter > Avanceret filter

Sæt hak i \"Kun unikke poster\" og tryk OK

Jeg er lige ved at lave en lille kode - hav tålmodighed *S*

Det er måske nok at skyde gråspurve med kanoner at lave en kode til dette. jumario har en meget nem og lige til løsning.

Måske er det at skyde gråspurve, men hvis jeg skulle slette dubletter i 70000 rækker, så ville jeg øsnke lidt automatisering:

og her er den så: - og det er kolonne A den sorterer...

Sub sletDubletter()

række = 0
Do
    række = række + 1
Loop Until (Cells(række, 1) = \"\")

Range(Cells(1, 1), Cells(række, 1)).Sort Key1:=Range(\"A1\"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

For n = 2 To række
    If Cells(n, 1) = Cells(n - 1, 1) Then
        Rows(n).Delete
    End If
Next n

End Sub

Mvh

Richardt

øh.. er det ik automatiseret nok, at markere en række tal, og trykke \"kun unikke poster\" det angivne sted? smag og behag!

Jo - hvis du vil beholde data i arket.

ja, jeg mente jo nok, at filteret ikke sletter data.
Hvis det er en engangsforestilling, ville jeg ikke ulejlige mig med at lave en makro. Min metode tager ikke mange minutter. Men det er jo et spørgsmål om stil *S*

70000 rækker, hmmmm hvilken version har du? - jeg har kun 65536 ;-)

Hvorfor så spydig - det var jeg bare en tastefejl *S*

rvm > driller bare, undskyld, det var ikke meningen at være spydig

Ok - jeg var nok lidt hård i min mund *SSS*

En lille, men væsentlig rettelse til min kode, der skal se sådan ud:

Sub sletDubletter()

række = 0
Do
    række = række + 1
Loop Until (Cells(række, 1) = \"\")

    Selection.Sort Key1:=Range(\"A1\"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

For n = 2 To række
    If Cells(n, 1) = Cells(n - 1, 1) Then
        Rows(n).Delete
    End If
Next n

End Sub

Mvh

Richardt

har du fået det til at virke mc.lucifer ??