Este fórum está sendo desativado

[Domingsp]

Olá, nesse exemplo eu quero contar quantos "o" e quantos "s" há em "são josé dos campos".
Conforme a figura, em C5 tenho o texto "são josé dos campos".
Em E5 é colocado o número de "o" e em F5, o número de "s". Nesse exemplo, temos 4 "o" e 4 "s".

Desde já, obrigado

[osvaldomp]

=NÚM.CARACT(C5)-NÚM.CARACT(SUBSTITUIR(C5;"o";""))

=NÚM.CARACT(C5)-NÚM.CARACT(SUBSTITUIR(C5;"s";""))

[Domingsp]

osvaldomp, obrigado pela atenção. Esqueci de dizer que gostaria de resolver isso por macro.
Foi falha minha!

[osvaldomp]

Experimente:

Sub ContaJóiasFurtadas()
[E5] = Evaluate("LEN(C5)-LEN(SUBSTITUTE(C5,""o"",""""))")
[F5] = Evaluate("LEN(C5)-LEN(SUBSTITUTE(C5,""s"",""""))")
End Sub

_________________________________________________________________________________________________

Se você quiser experimentar também via UDF:
1. coloque em E4, F4, G4, ... somente as letras que deseja contar (exemplos: E4=o, F4=s, G4=m)
2. instale a Function abaixo em um módulo comum (pode ser no mesmo módulo em que estiver a Sub acima)
3. cole esta fórmula em E5 ~~~> =contaletra(E4) e arraste até a coluna que desejar

Function ContaLetra(c As Range)
Application.Volatile
ContaLetra = Evaluate("LEN(C5)-LEN(SUBSTITUTE(C5,""" & c.Value & """,""""))")
End Function

[Domingsp]

Obrigado, osvaldomp. Optei pela primeira solução.