Harf sayısını bulma

[muratgunay48]

Arkadaşlar, sayın hocalarım, A sütununda 20 tane isim var sütundaki A harfinin sayısını B1 hücresine nasıl yazdırabilirim.
Teşekkür ederim.

 

[murat_fidan]

Arkadaşlar, sayın hocalarım, A sütununda 20 tane isim var sütundaki A harfinin sayısını B1 hücresine nasıl yazdırabilirim.
Teşekkür ederim.

Sub Say()
Dim Sonuc As Integer
Dim Satir As Integer
Dim Metin As String

Sonuc = 0

For Satir = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Metin = Cells(Satir, "A").Value
Sonuc = Sonuc + Len(Metin) - Len(Replace(Metin, "A", ""))
Next Satir

Range("B1").Value = Sonuc
End Sub

 

[Necdet]

Merhaba,

Daha bir kaç gün ince işlendi bu konu

 

[Necdet]

Formülü yazdıktan sonra entera değil Ctrl+Shft+Enter a basıyorsunuz. Formül {} arasında görülür. Bu dizi formüldür.
2010 yılında üye olmuşsunuz yıl 2023, o kadar çok işlendi ve soruldu ki bu dizi formül olayı.

 

[muratgunay48]

Formülü yazdıktan sonra entera değil Ctrl+Shft+Enter a basıyorsunuz. Formül {} arasında görülür. Bu dizi formüldür.
2010 yılında üye olmuşsunuz yıl 2023, o kadar çok işlendi ve soruldu ki bu dizi formül olayı.

Hocam, biliyorum tabi ki. Adı aklımdan çıkmış. Özür dilerim, vaktinizi aldım.
Onu kullanıyorum zaten. Adının DİZİ formül olduğu aklımdan çıkmış.