sütun içerisindeki değerlerin sayımı

[hazein]

Arkadaşlar A sütunundaki değerlerin kaç adet olduğunu karşılığına B sütununa yazılmasını istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[ZorBey_]

Merhaba İyi Çalışmalar
B2 Yazıp Aşağıya Doğru Çekermisiniz

=TOPLA.ÇARPIM(($A$2:$A$5855=A2)*($A$2:$A$5855=A2))

 

[Murat OSMA]

Denemedim ezberden yazdım sayfa ismini kontrol ederek test edebilirsiniz.

[B]Sub say()
dim rky as object, rs as object
set rky =createobject("adodb.connection")
set rs =createobject("adodb.recordset")
rky.open  "provider=microsoft.ace.oledb.12.0;data source=" & _
thisworkbook.fullname &";extended properties= ""excel 12.0;hdr=no"""
sorgu = "select count(f1) from [sayfa1$] group by f1"
rs.open sorgu, rky
range("b1").copyfromrecordset rs
rs.close: rky.close
end sub[/B]