Hvordan udpakkes initialer fra navne i Excel?
Når du behandler kundeoptegnelser eller foretager fletning af mail, kan det være nyttigt for dig at få initialer fra et givet navn, for eksempel HG for Hal Greer. Så her introducerer jeg nogle tricks til dig for hurtigt at udtrække initialer fra navnelisten i Excel.
Uddrag initialer med formel i Excel
Uddrag initialer bruger Defined Function i Excel
Uddrag initialer med formel i Excel
Den første metode er at bruge formel til at udtrække initialer fra navne i Microsoft Excel.
Vælg en tom celle, for eksempel Cell C2, skriv denne formel =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 er den første celle på din navneliste), tryk på Indtast knappen, og træk derefter påfyldningshåndtaget for at udfylde området. Nu ser du, at alle initialer for hvert navn er hentet fra navnelisten.
Uddrag initialer bruger Defined Function i Excel
Udover formlen kan du bruge den definerede funktion til nemt at udtrække initialer fra angivne navne i Microsoft Excel.
1. Vælg en celle i den kolonne, du vil vælge, og tryk på Alt + F11 at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik på i pop op-vinduet indsatte > Moduler, og indsæt derefter følgende VBA-kode i modulet.
VBA: Uddrag initialer fra navne
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. Gem koden, og luk vinduet, vælg en tom celle, og skriv denne formel = FirstCharacters (A2), Og tryk derefter på Indtast knappen, og træk påfyldningshåndtaget for at udfylde det ønskede område. Derefter kan du se initialerne for hvert navn udpakkes.
Tip: Du kan ændre separatorerne "" af initialerne, som du har brug for i ovenstående VBA.
Relative artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!