Sütunda kaç farklı ver var?

[OoParadiSeoO]

Arkadaşlar merhaba,

makro ile sütunda kaç adet farklı veri olduğunu nasıl bulabiliriz?

 

[Orion1]

A sütunu için;

Sub kactane()
Dim sonsat As Long, i As Long, deg As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sonsat
    If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) = 1 Then
        say = say + 1
    End If
Next i
MsgBox "Toplam : " & say & " adet çeşitli veriler var.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[OoParadiSeoO]

Sayın Orin cok teşekkürler..