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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!