Marker unikke værdier!

Hvor mange rækker er der ca. tale om?

Hej,

Jeg bliver lidt forvirret af dit eksempel ovenfor, da jeg ikke synes at dine "Ja" og "Nej" markeringer stemmer helt overens med det du skriver i teksten.

Jeg foreslår, at du i en ledig kolonne (her kolonne D) laver en sammentrækning af nummer og navn. Fx. "=B1&C1", som giver fx. "201610112 Hans". I næste kolonne laver tæller jeg antallet af samme forekomst, og hvis det er 1, så er den unik, ellers ej. I kolonne E har jeg følgende formel: "=HVIS(TÆL.HVIS(D:D;D2)=1;"JA";"NEJ")"

Her er dit eksempel, med de to nye kolonner:

Unik?     Nr.     Navn    Sammentrækning    Unik
JA     201610112     Hans    201610112 Hans    JA
JA     201610113     Erik             201610113 Erik     JA
NEJ     201610116     Poul            201610116 Poul    NEJ
NEJ     201610116     Poul            201610116 Poul    NEJ
NEJ     201610116     Peter    201610116 Peter    JA
JA     201610117     Gunnar    201610117 Gunnar    JA
JA     201610118     Klaus    201610118 Klaus    NEJ
JA     201610118     Klaus    201610118 Klaus    NEJ
JA     201610118     Klaus    201610118 Klaus    NEJ

Hej Supertekst

Det kan variere men min. 200 op til ca. 6000 rækker.

Tak
Er i gang med en VBA-løsning..

Hej Jessen

Beklager det er også lidt snørklet.

I dit eksempel er de nederste 3 linier forkerte for værdien findes kun som:
201610118 Klaus. Den findes godt nok 3 gange, men der er kun den ene.

I nedenstående eksempel er der to identiske numre, men med forskelligt navn. dem vil jeg gerne have markeret med NEJ

Håber det giver mening!

NEJ    201610116    Poul            201610116 Poul    NEJ
NEJ    201610116    Peter    201610116 Peter

Du kan også teste med en lille formel, hvis ikke du vil bruge en VBA løsning, som Supertekst godt nok er ved at lave.
Men så har du 2 muligheder at prøve med.
Indsæt formlen i A1, og kopier nedad, så langt data er ned.
=TÆL.HVIS($B:$C;C1)=1

Dim antalRækker As Integer, ræk As Integer, nr As Long, navn As String
Dim startRæk As Integer, slutRæk As Integer
Public Sub markerOmUnik()
    Application.ScreenUpdating = False
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 2 To antalRækker
        startRæk = ræk
        nr = Range("B" & ræk)
        navn = Range("C" & ræk)
       
        If testOmUnik(nr, navn, ræk) = True Then
            marker "JA", startRæk, slutRæk
        Else
            marker "NEJ", startRæk, slutRæk
            ræk = slutRæk
        End If
    Next ræk
End Sub
Private Function testOmUnik(nr, navn, række)
Dim ræk As Integer, ræk1 As Integer, ejUnik As Boolean
    ræk1 = række
   
    For ræk = ræk1 To antalRækker
Rem test om næste række har samme nr
        If nr = Range("B" & ræk + 1) Then
Rem Test om samme navn
            If navn <> Range("C" & ræk + 1) Then
                ejUnik = True
            End If
        Else
Rem Andet nr
            If ejUnik = False Then
                testOmUnik = True
            Else
                testOmUnik = False
            End If
            slutRæk = ræk
            Exit Function
        End If
    Next ræk
End Function
Private Sub marker(tekst, fraRæk, tilRæk)
Dim ræk As Integer
    For ræk = fraRæk To tilRæk
        Range("A" & ræk) = tekst
    Next ræk
End Sub

Hej Supertekst

Mange tak for løsningen.

Jeg tester den lige lidt mere i morgen, umiddelbart får jeg ikke helt det ønskede resultat.

Hej JP9

Selv tak

Hvis det kan være en hjælp - så kan du få min testfil.
Aktiver "Kontakt" på www.supertekst-it.dk - så sender jeg filen.

Hej Supertekst

Så har jeg teste løsningen, den virker perfekt med et par enkelte tilføjelser.

Nr. har jeg ændret til variant grundet antal cifre der kan indgå i cellen.
Numrene skal være sorteret i faldende orden.

Mange tak for hjælpen :-)

Hej JP9

Fint og selv tak..