Autor Tema: Contar repeticiones de caracteres  (Leído 533 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 214
Contar repeticiones de caracteres
« en: Diciembre 14, 2022, 02:50:53 pm »
Palabras clave: Cadena, repetir, contar
Autor: David M.M. y Eva Etxebeste

Objetivo
Rafa pregunta:
Citar
¿Recordáis si hay alguna función de VBA que me cuente las coincidencias de un carácter en una cadena de texto?

"Hola grupito". Si busco la o que me retorne 2.

Responde Mihura
Mira... una del ternero

Código: [Seleccionar]
Function RT_NumRepeticionesCaracter(ByVal Cadena As Variant, ByVal Caracter As Variant) As Long   'V0
' El valor que devolverá la función será el número de partes en que la función Split ha separado
' la cadena original con el caracter introducido menos uno. Primera función de David M.M.
    Dim Matriz_Split() As String
    RT_NumRepeticionesCaracter = 0
    If Nz(Cadena, "") = "" Then Exit Function
    Matriz_Split() = Split(Cadena, Nz(Caracter, ""))
    RT_NumRepeticionesCaracter = UBound(Matriz_Split)
End Function

A lo que Eva Etxebeste replica...
En una línea

Código: [Seleccionar]
Len(cadena) - Len(Replace(cadena, charBusqueda, ""))