Contar el número de caracteres

Hoy os presento una función que nos puede servir para contar el número de caracteres que tiene una cadena de texto, sin contar los espacios en blanco (si queremos contar también los espacios en blanco, tan solo tendremos que cambiar ligeramente el código que os propongo, tal y como aparece en la segunda función). Para ello, construiremos una función que nos ahorrará tiempo y trabajo. Comenzaremos entrando en modo VBA, ...ya sabéis, Alt + F11, y creando un módulo donde introduciremos el siguiente código:

Function contarsinespacios(celda As range) 'Reemplazamos los espacios vacíos por nada, 'es decir, los eliminamos, pero solo a efectos 'del cálculo del nº de caracteres. mi_texto = Replace(celda, " ", "") 'Contamos los caracteres que hay, ahora que tenemos el 'texto en la variable mi_texto, el texto sin espacios vacíos cantidad_de_texto = Len(mi_texto) 'ponemos el número de caracteres en la celda 'donde tenemos esta función (la fómula) contarsinespacios = cantidad_de_texto End Function

Ahora solo tendremos que llamar a la función, de la misma forma que llamamos por ejemplo a la función SUMA:

=contarsinespacios(celda)

celda: corresponde a la celda, cuyos caracteres queremos contar (A1, A5, B35, AB167, o la que sea).

He aquí un ejemplo gráfico que lo aclarará todo:


Si deseamos que la función nos cuente también el número de espacios en blanco, tan solo tendremos que adaptar la función anterior, a esta nueva forma (ojo, que también le hemos cambiado el nombre a la función):

Function contarconespacios(celda As range) 'Contamos los caracteres que hay cantidad_de_texto = Len(celda) 'ponemos el número de caracteres en la celda 'donde tenemos esta función (la fómula) contarconespacios = cantidad_de_texto End Function

Para llamar a la función, lo haremos igual que en el ejemplo anterior:

=contarconespacios(celda)

celda: corresponde a la celda, cuyos caracteres queremos contar (A1, A5, B35, AB167, o la que sea).

A la vista de algunos comentarios, voy a añadir un par de funciones propias de Excel que hacen exactamente lo mismo, pero sin necesidad de utilizar macros. Si queremos contar el número de caracteres, incluyendo los espacios en blanco que haya, con esta fórmula lo tenemos chupado:

=largo(celda)

Y si lo que queremos es contar los caracteres, pero sin incluir los espacios en blanco, la fórmula que tendremos que utilizar es esta otra:

=largo(sustituir(celda;" ";""))

celda: corresponde a la celda, cuyos caracteres queremos contar (A1, A5, B35, AB167, o la que sea).