Hur extraherar jag initialer från namn i Excel?
När du bearbetar kundposter eller gör sammanslagning kan det vara användbart att få initialer från ett givet namn, till exempel HG för Hal Greer. Så här introducerar jag några knep för dig att snabbt extrahera initialer från namnlistan i Excel.
Extrahera initialer med formel i Excel
Extrahera initialer använder Defined Function i Excel
Extrahera initialer med formel i Excel
Den första metoden är att använda formel för att extrahera initialer från namn i Microsoft Excel.
Välj en tom cell, till exempel Cell C2, skriv den här formeln =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 är den första cellen i din namnlista), tryck på ange -knappen och dra sedan på fyllningshandtaget för att fylla intervallet. Nu ser du alla initialer för varje namn extraheras från namnlistan.
Extrahera initialer använder Defined Function i Excel
Förutom formeln kan du använda den definierade funktionen för att enkelt extrahera initialer från angivna namn i Microsoft Excel.
1. Välj en cell i kolumnen du vill markera och tryck på Alt + F11 att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka på i popup-fönstret Insert > Modulernaoch klistra sedan in följande VBA-kod i modulen.
VBA: Extrahera initialer från namn
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. Spara koden och stäng fönstret, välj en tom cell och skriv denna formel = FirstCharacters (A2), Tryck sedan på ange -knappen och dra fyllningshandtaget för att fylla det intervall du vill ha. Efter det kan du se initialerna för varje namn extraheras.
Tips: Du kan ändra separatorerna "." av initialerna som du behöver i ovanstående VBA.
Relativa artiklar:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!