Benzersiz kayıtları sayma

[vlk4n]

Merhaba arkadaşlar bir sütunda bulunan benzersiz kayıtların sayısını nasıl alırım. Filtreleme ile alıyorum ama o şekilde istemiyorum

örneğin
A
123
123
456
456
678
678
678

sonuç olarak 3 kayıt var diyecek

teşekkürler

 

[Orion1]

Buyurun.

Dim sat As Long, i As Long, say As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat
    If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) = 1 Then say = say + 1
Next
MsgBox say & " Kayıt Var." & vbLf & "evrengizlen@hotmailcom"

 

[vlk4n]

tamam arkadaşlar sorunu çözdüm kusura bakmayın
=TOPLA(EĞER(A1:A12="";"";1/EĞERSAY(A1:A12;A1:A12)))
ctrl+shift+enter