hücredeki metnin kaç kere tekrar ettiğini bulmak

[lacivert]

Merhaba,

ben bir hücrede bulunan birkaç karakterli bir yazının kaç kere tekrar ettiğini buldurmak istiyorum bunu nasıl yapabilirim acaba ?

ÖrneğiN:BSK/TMP/DR/TMP şeklindeki bir hücrede kaç adet tmp olduğunu nasıl saydırabilirim

 

[Ali]

Ekteki örneği inceleyiniz.

 

[Zeki Gürsoy]

KTF benden..

Function SAY(Aranan As String, Hucre As Range, Ayrac As String) As Byte
Dim i As Byte, arr As Variant
 
    arr = Split(Hucre, Ayrac)

    For i = 0 To UBound(arr)
        If arr(i) = Aranan Then SAY = SAY + 1
    Next
    
    Erase arr
End Function