Sutundaki yinelenen degerler

[bahadir70]

Merhaba arkadaslar,

Bir sutuna cesitli verileri girildikten sonra kac cesit veri girisi yapildigini formulle bulabilir miyiz?

Ornek soru:
A sutununa sirasiyla A1 den A9 a kadar,

ahmet
hasan
ayse
ahmet
ahmet
mustafa
ali
ali
ayse

verileri girdigimizi varsayarsak, toplam kac cesit veri girildigi sayi olarak gerekiyor. Yani, sonucda sadece 5 cesit veri oldugunu gosteren 5 sayisini bulmam mumkun mu?

 

[İhsan Tank]

Merhaba arkadaslar,

Bir sutuna cesitli verileri girildikten sonra kac cesit veri girisi yapildigini formulle bulabilir miyiz?

Ornek soru:
A sutununa sirasiyla A1 den A9 a kadar,

ahmet
hasan
ayse
ahmet
ahmet
mustafa
ali
ali
ayse

verileri girdigimizi varsayarsak, toplam kac cesit veri girildigi sayi olarak gerekiyor. Yani, sonucda sadece 5 cesit veri oldugunu gosteren 5 sayisini bulmam mumkun mu?

merhaba
formül ile isterseniz

=TOPLA.ÇARPIM((A1:A1000<>"")/EĞERSAY(A1:A1000;A1:A1000&""))

ayrıntılar için tıklayın
kod olarak isterseniz
boş bir module kopyalayın ve deneyin

Option Explicit
Sub say()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Sayıma Başlıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
kaplan = 0
For ts = 1 To Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & ts), Cells(ts, "A")) = 1 Then
kaplan = kaplan + 1
End If
Next
Range("B1") = kaplan
MsgBox "Saydım Sonucu B1 Hücresine Yazdım", vbInformation, "Bitiş"
End Sub

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak sütunda başlık olmak kaydıyla özet tablo kullanarak isimleri benzersiz listeleyebilirsiniz. Ya da gelişmiş filtre ile benzersiz kayıtları süzebilirsiniz.