Jak extrahovat iniciály ze jmen v aplikaci Excel?

Když zpracováváte záznamy o zákaznících nebo provádíte hromadnou korespondenci, může být pro vás užitečné získávat iniciály od křestního jména, například HG pro Hal Greer. Zde tedy představuji několik triků, jak rychle extrahovat iniciály ze seznamu jmen v aplikaci Excel.

Extrahujte iniciály pomocí vzorce v aplikaci Excel

Extrahujte iniciály pomocí definované funkce v aplikaci Excel

Extrahujte iniciály pomocí vzorce v aplikaci Excel

První metodou je použití vzorce k extrakci iniciál ze jmen v aplikaci Microsoft Excel.

Vyberte prázdnou buňku, například buňku C2, zadejte tento vzorec =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 první buňka vašeho seznamu jmen), stiskněte vstoupit tlačítko a potom tažením úchytu vyplňte celý rozsah. Nyní vidíte, že všechny iniciály každého jména jsou extrahovány ze seznamu jmen.

Extrahujte iniciály pomocí definované funkce v aplikaci Excel

Kromě vzorce můžete pomocí definované funkce snadno extrahovat iniciály ze zadaných jmen v aplikaci Microsoft Excel.

1. Vyberte buňku sloupce, který chcete vybrat, a stiskněte Alt + F11 k otevření Microsoft Visual Basic pro aplikace okno.

2. Ve vyskakovacím okně klikněte na Vložit > Modul, pak vložte následující kód VBA do modulu.

VBA: Extrahujte iniciály ze jmen

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. Uložte kód a zavřete okno, vyberte prázdnou buňku a zadejte tento vzorec = První znaky (A2), Poté stiskněte tlačítko vstoupit tlačítko a tažením úchytu vyplňte požadovaný rozsah. Poté uvidíte, že jsou extrahovány iniciály každého jména.

Tip: Můžete změnit oddělovače "." iniciál, jak potřebujete ve výše uvedeném VBA.

Relativní články:

• Extrahujte jedinečné hodnoty v aplikaci Excel
• Extrahujte tučný text v aplikaci Excel