Kako izvleči začetnice iz imen v Excelu?

Ko obdelujete evidence strank ali spajate pošto, vam je lahko koristno pridobivanje začetnic z določenim imenom, na primer HG za Hal Greer. Tukaj vam predstavljam nekaj trikov, s katerimi lahko hitro izvlečete začetnice s seznama imen v Excelu.

V Excelu izvlecite začetnice s formulo

Začetne črke uporabljajo definirano funkcijo v Excelu

V Excelu izvlecite začetnice s formulo

Prva metoda je uporaba formule za pridobivanje začetnic iz imen v programu Microsoft Excel.

Izberite prazno celico, na primer Celica C2, vnesite to formulo =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 je prva celica na seznamu imen), pritisnite Vnesite , nato povlecite ročico za polnjenje, da zapolnite obseg. Zdaj vidite, da so vse začetnice vsakega imena izvlečene s seznama imen.

Začetne črke uporabljajo definirano funkcijo v Excelu

Poleg formule lahko z definirano funkcijo v programu Microsoft Excel enostavno izvlečete začetnice iz določenih imen.

1. Izberite celico stolpca, ki jo želite izbrati, in pritisnite Alt + F11 da odprete Microsoft Visual Basic za aplikacije okno.

2. V pojavnem oknu kliknite Vstavi > Moduli, nato v modul prilepite naslednjo kodo VBA.

VBA: Izvleči začetnice iz imen

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. Shranite kodo in zaprite okno, izberite prazno celico in vnesite to formulo = Prvi znaki (A2), Nato pritisnite Vnesite in povlecite ročico za polnjenje, da zapolnite želeni obseg. Po tem lahko vidite, kako so izvlečene začetnice vsakega imena.

Nasvet: Ločila lahko spremenite "." začetnic, kot jih potrebujete v zgornjem VBA.

Relativni članki:

• Izvlecite edinstvene vrednosti v Excelu
• Izvlecite krepko besedilo v Excelu