Extraer la incial de cada palabra

Esta función personalizada que hoy os presento, no es que tenga excesiva utilidad, pero bueno, nos sirve para aprender más sobre el uso de vectores, o arrays. Es lo que tiene Excel, que nos permite construirnos nuestras propias funciones, de la misma forma que tenemos otras ya predefinidas, como SUMA, CONTAR, SI, o FECHA, por poner solo unos ejemplos.

Imaginemos que tenemos en una columna, un listado con nombres de personas (nombre y dos apellidos), y que deseamos poner en la columna contigua, las iniciales de cada uno de los nombres. Podemos hacerlo a mano, de tal forma que si tenemos por ejemplo en la lista, una persona llamada Irene Hermosilla Martín, en la columna continua deberemos poner IHM, a mano.

Para hacerlo de una forma más profesional, vamos a construir una función que nos permita hacer eso de forma mucho más rápida, para lo cual copiaremos y pegaremos esto en un módulo:

Function iniciales(celda As Range) 'Descomponemos el texto, en partes, 'para lo cual indicamos el delimitador " ", aunque 'por defecto, podríamos haberlo omitido, pues es ese mismo '(espacio), con lo cual tendremos tantas palabras, 'como estén separadas por espacios texto = Split(Trim(celda), " ", -1, 1) 'miramos las palabras que componen el texto, 'para lo cual le decimos que recorra desde el primer 'valor de la matriz (empieza en cero), hasta el máximo 'valor (nº de la última palabra) que lo obtenemos con el UBound For i = 0 To UBound(texto) 'ponemos la inicial en mayúsculas, y el resto 'de las letras, simplemente no nos interesan texto(i) = UCase(Left(texto(i), 1)) Next 'Unimos los textos, con la función Join texto = Join(texto) 'quitamos el espacio que separa las iniciales texto = Replace(texto, " ", "") 'pasamos los datos a la función iniciales = texto End Function

¿Y como llamamos a esa función?. Pues simplemente así:

=iniciales(celda)

celda: corresponde a la celda, cuyas iniciales deseamos extraer (A12, B33, M58, o la celda de que se trate).

He aquí un ejemplo donde ponemos en la fila de abajo, las iniciales del nombre que aparece justo encima. Fijaos en la barra de fórmulas donde aparece lo de =iniciales(B3):