¿Cómo extraer las iniciales de los nombres en Excel?
Cuando procese registros de clientes o realice una combinación de correspondencia, puede resultarle muy útil obtener las iniciales de un nombre dado, como HG para Hal Greer. Por eso, a continuación le presentamos algunos trucos para extraer rápidamente las iniciales de una lista de nombres en Excel.
Extraer iniciales con fórmula en Excel
Extraer iniciales mediante una función definida en Excel
Extraer iniciales con fórmula en Excel
El primer método consiste en usar una fórmula para extraer las iniciales de los nombres en Microsoft Excel.
Seleccione una celda vacía, por ejemplo, la celda C2, e introduzca esta fórmula: =IZQUIERDA(A2)&SI(ESNÚMERO(HALLAR(« »,A2)),EXTRAE(A2,HALLAR(« »,A2)+1,1),«»)&SI(ESNÚMERO(HALLAR(« »,A2,HALLAR(« »,A2)+1)),EXTRAE(A2,HALLAR(« »,A2,HALLAR(« »,A2)+1)+1,1),«») (A2 es la primera celda de su lista de nombres). Pulse Intro y arrastre el controlador de relleno para completar el rango. ¡Verá cómo se extraen automáticamente las iniciales de cada nombre de su lista!
Extraer iniciales mediante una función definida en Excel
Además de la fórmula, puede usar una función definida para extraer con facilidad las iniciales de nombres específicos en Microsoft Excel.
1. Seleccione una celda de la columna que desee y pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana emergente, haga clic en Insertar > Módulo y, a continuación, pegue el siguiente código VBA en el módulo.
VBA: Extraer iniciales de nombres
Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function3. Guarde el código y cierre esta ventana, seleccione una celda vacía y escriba esta fórmula: =PrimerosCaracteres(A2). Luego, pulse Intro y arrastre el controlador de relleno para completar el rango deseado. Tras esto, podrá ver que se han extraído las iniciales de cada nombre.
Consejo: Puede personalizar los separadores "." de las iniciales según sus necesidades en el código VBA anterior.
Artículos relacionados:
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos