karakter sayısı

[tamer42]

Merhabalar,

A,b,c,d,e,f,g,h,j,k,l,m böyle bir ifade içerinde yer alan , karakterlerini saymak istiyorum

kaç adet var diye?

for 
...... 
next

döngüsü ile sayabiliyorum, daha pratik bir yolu var mı diye sormak istedim.


iyi çalışmalar.

 

[Mehmet Şahin]

Merhaba,
bu şekilde denermisiniz. Kolay gelsin

Sub test()
With Sheets("Sheet1")
For i = 1 To 10
    Cells(i, "b") = Len(Cells(i, "a")) - Len(Application.WorksheetFunction.Substitute(Cells(i, "a"), ",", ""))
Next i
End With
End Sub

 

[merakli_72]

a="A,b,c,d,e,f,g,h,j,k,l,m"
b=replace(a,",","")
msgbox len(a)-len(b)