¿Cómo extraer las iniciales de los nombres en Excel?
Cuando procesa registros de clientes o combina correspondencia, puede ser útil obtener las iniciales de un nombre de pila, por ejemplo, HG para Hal Greer. Así que aquí presento algunos trucos para que extraigas rápidamente las iniciales de la lista de nombres en Excel.
Extraer iniciales con fórmula en Excel
Extraiga las iniciales use la función definida en Excel
Extraer iniciales con fórmula en Excel
El primer método es utilizar una fórmula para extraer las iniciales de los nombres en Microsoft Excel.
Seleccione una celda en blanco, por ejemplo, Celda C2, escriba esta fórmula =LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")(A2 es la primera celda de su lista de nombres), presione Participar , luego arrastre el controlador de relleno para llenar el rango. Ahora verá que todas las iniciales de cada nombre se extraen de la lista de nombres.
Extraiga las iniciales use la función definida en Excel
Además de la fórmula, puede utilizar la función definida para extraer fácilmente las iniciales de los nombres especificados en Microsoft Excel.
1. Seleccione una celda de la columna que desea seleccionar y presione Alt + F11 para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En la ventana emergente, haga clic en recuadro > Módulo, luego 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 Function
3. Guarde el código y cierre la ventana, seleccione una celda en blanco y escriba esta fórmula = Primeros caracteres (A2), entonces presione Participar y arrastre el controlador de relleno para llenar el rango que desee. Después de eso, puede ver que se extraen las iniciales de cada nombre.
Consejo: Puede cambiar los separadores "." de las iniciales que necesita en el VBA anterior.
Artículos relativos:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!