CONTAR TODOS LOS CARACTERES DE UN RANGO SELECCIONADO. FUNCIÓN LARGOX

Hola a todos!.

Hace unos meses programé una función para sumar el contenido una celda o rango aunque contasen con datos alfanuméricos: SUMAR EL CONTENIDO DE UNA CELDA O DE UN RANGO CON O SIN CARACTERES ALFANUMÉRICOS

Lo realmente importante de la función es la de poder programar la función Split cuando no existe un delimitador.

Pues bien, hoy he modificado la función para contar el contenido de una celda o rango. Algo parecido a la función Largo(), pero que permite contar también en un rango.

La función que vamos a utilizar la he denominado LargoX():

Option Explicit
Function LARGOX(ByVal Target As Range)
Dim celda As Variant, sCadena As String
Dim dato As Variant, numero As Long, contador As Long
'Por cada celda en el rango
For Each celda In Target
'si la celda tiene contenido
If celda <> Empty Then
'obtenemos la cadena y la convertimos a unicode, añadiendo Chr(0) entre cada letra
sCadena = Left(StrConv(celda, vbUnicode), Len(StrConv(celda, vbUnicode)) - 1)
'con la función Split delimitamos la cadena.
For Each dato In Split(sCadena, Chr(0))
'Sumamos cada número
contador = contador + 1
Next dato
End If
Next celda
' Pasamos el resultado a la función
LARGOX = contador
End Function

y así podemos utilizar la función de esta forma:

Y con esto ya tenemos una nueva función que nos va a servir para contar los caracteres contenidos en una celda o en un rango. Este código también se puede modificar para contar un carácter específico, pero en esta web ya existen varios ejemplos que lo hacen.

Y esto es todo, espero que os os resulte de utilidad!.

Descarga el archivo de ejemplo pulsando en: CONTAR TODOS LOS CARACTERES DE UN RANGO SELECCIONADO. FUNCIÓN LARGOX

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.



¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies