Find unikke værdier

Kan der være unikke værdier i både kolonne 1 og 2, eller er den ene kolonne altid dubletter af den anden?

Der er kun "nye" værdier i den ene kolonne f.eks. kolonne "P". Den skal sammeligne med kolonne "A". Der er i Kolonne "P" tale om en databaseforespørgsel, der er formateret som tekst og kolonne "A" er og skulle gerne være formateret som tal. Der kan ikke forekomme andet end tal i forespørgelsen.

a1 = Sheets("Ark2").Range("H60000").End(xlUp).Row
a2 = Sheets("Ark2").Range("I60000").End(xlUp).Row
kolc = 4
For i = 4 To a1
ant = 0
    For p = 4 To a2
    If Sheets("Ark2").Range("I" & p) = Sheets("Ark2").Range("H" & i) Then ant = ant + 1
Next p
If ant = 1 Then Sheets("Ark2").Range("J" & kolc) = Sheets("Ark2").Range("H" & i): kolc = kolc + 1

Next i

Så kan du selv rette til.
Og næste gang kan du jo lige vende dig om og spørge, dovne hund!

Ja ja, nu har jeg forstået opgaven.
Øjeblik...

Test lige den her...
Den er ikke pæn men jeg tror den virker efter hensigten.

Dim cell As Range
a1 = Sheets("Ark2").Range("H60000").End(xlUp).Row
a2 = Sheets("Ark2").Range("I60000").End(xlUp).Row

kolc = 4

For i = 4 To a1
ant = 0
sog = Sheets("Ark2").Range("H" & i)
    For Each cell In Sheets("Ark2").Range("H4:I" & a2)
        If CStr(sog) = CStr(cell.Value) Then ant = ant + 1
    Next
If ant = 1 Then Sheets("Ark2").Range("J" & kolc) = sog: kolc = kolc + 1
Next i


For p = 4 To a2
ant = 0
sog = Sheets("Ark2").Range("I" & i)
    For Each cell In Sheets("Ark2").Range("H4:I" & a2)
        If CStr(sog) = CStr(cell.Value) Then ant = ant + 1
    Next
If ant = 1 Then Sheets("Ark2").Range("J" & kolc) = sog: kolc = kolc + 1

Next p

Og JA fejlen er lavet med vilje, så held og lykke med at finde den...

Fejlene er fundet.... Takker.

smid et svar.

Svar