Guru do Excel + Power BI

Sua dose diária de Power BI e Excel

Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Domingsp
Posts
#73088
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

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

=NÚM.CARACT(C5)-NÚM.CARACT(SUBSTITUIR(C5;"s";""))
#73092
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

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Boa noite. Implementei em minha planilha a condi&c[…]

One night stands, no obligations.

Consensual free relationships Real Women

Procv com serro em vba

Resolvido

Embrace the freedom of casual encounters on the be[…]

Secret meetings: just for two, one night only

Turn casual moments into unforgettable dates &ndas[…]

Bom dia, pessoal! com a data de nascimento e data […]