Aquí lo tienes en forma de función (copia y pega esta función en un módulo):
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
Para llamar a esta función, ponte en cualquier celda vacía y pon esto:
Código:
=contarsinespacios(celda)
donde
celda es la celda cuyos datos quieres contar. Por ejemplo:
Salu2