Koşullu saydırma

[16prens]

Slm
a1-a500 hücreleri arasında değişken veriler var. Ben aynı olanları 1 sayıp kaç tane farklı değer olduğunu hesaplamak istiyorum.
Örn:900-901-902-903-900-1000-1002-900-901-902-903-900-1000-1002-900-900
Elde etmek istediğim değer=7
bana yardımcı olursanız sevinirim
Teşekkürler

 

[Orion1]

Buyurun.

Dim col As Collection, sat As Long, i As Long
Set col = New Collection
For i = 1 To 500
    If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A").Value) = 1 Then
        col.Add Cells(i, "A").Value
    End If
Next i
MsgBox "Benzersiz = " & col.Count & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

 

[muygun]

Merhaba;
İşlevlerle alternatif olsun.
A1-A1000 aralığında verileriniz varsa;

Sayısal verilerin benzersiz sayısı için;
=TOPLA.ÇARPIM(ESAYIYSA(A1:A1000)/EĞERSAY(A1:A1000;A1:A1000&""))

Metin verilerin benzersiz sayısı için;
=TOPLA.ÇARPIM(EMETİNSE(A1:A1000)/EĞERSAY(A1:A1000;A1:A1000&""))

Hem sayısal hemde Metin verilerinin benzersiz sayısı için;
=TOPLA.ÇARPIM((ESAYIYSA(A1:A1000)+EMETİNSE(A1:A1000))/EĞERSAY(A1:A1000;A1:A1000&""))

Formüllerini deneyin.
İyi çalışmalar.

Not: örnek sayılarınızda 6 benzersiz veri yok mu? (neden 7 sonucu istediniz?)
Sayın Orion1'in kodlarında boş hücre kontrolü yaptırılırsa doğru sonuç verecektir.

 

[16prens]

Çok teşekkür ederim.
Kısa yoldan işimi gördünüz.

 

[16prens]

Arkadaşlar aşağıdaki förmülü yazdığımda hücrede açık kalıyor.
Bir hatamı yapıyorum
=TOPLA.ÇARPIM(ESAYIYSA(F4:F1000)/EĞERSAY(F4:F1000;F4:F1000&""))

 

[muygun]

Arkadaşlar aşağıdaki förmülü yazdığımda hücrede açık kalıyor.
Bir hatamı yapıyorum
=TOPLA.ÇARPIM(ESAYIYSA(F4:F1000)/EĞERSAY(F4:F1000;F4:F1000&""))

Merhaba;
Örnek dosyayı inceleyin.
İyi çalışmalar.