Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak získat první písmeno každého slova z buňky?

Předpokládejme, že máte v listu seznam názvů zemí a teď je třeba vygenerovat první písmeno každého slova v buňce, jak je znázorněno na následujících obrazovkách. Normálně neexistuje žádná přímá funkce, která by vyzdvihla první písmeno každého slova v aplikaci Excel. Ale tady můžu hovořit o užitečném řešení tohoto úkolu.

doc-extract-first-letter1

Vyjměte první písmeno každého slova z buňky s funkcí definovanou uživatelem


arrow modrá pravá bublinaVyjměte první písmeno každého slova z buňky s funkcí definovanou uživatelem


V aplikaci Excel můžete vytvořit a Funkce definovaná uživatelem vytáhnout první písmena všech slov v buňce. Postupujte takto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Okno aplikace Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložíte následující kód Okno modulu. </ p>

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3. Pak tento kód uložte a zavřete, přejděte zpět do pracovního listu a zadejte tento vzorec = GetFirstLetters (A2) (A2 označuje buňku, kterou chcete extrahovat první písmeno, můžete ji změnit podle potřeby) do prázdné buňky. Zobrazit screenshot:

doc-extract-first-letter1

4. A pak stiskněte vstoupit a vyberte buňku B2 a přetáhněte popisovač výplně do buněk, které chcete použít tento vzorec. A všechny první dopisy byly vyňaty z řady slov, viz screenshot:

doc-extract-first-letter1


Související článek:

Jak extrahovat první / poslední / nth slovo z textového řetězce v aplikaci Excel?



Doporučené nástroje pro produktivitu

Karta Office

zlatá hvězda1 Přiveďte praktické karty do aplikace Excel a jiného softwaru Office, stejně jako Chrome, Firefox a nový Internet Explorer.

Kutools pro Excel

zlatá hvězda1 Úžasný! Zvyšte svou produktivitu v minutách 5. Nepotřebujete žádné speciální dovednosti, kromě dvou hodin denně!

zlatá hvězda1 300 Nové funkce pro aplikaci Excel, Značka Excel je velmi snadná a výkonná:

  • Sloučit buňky / řádky / sloupce bez ztráty dat.
  • Kombinovat a konsolidovat více listů a sešitů.
  • Srovnání rozsahů, kopírování více rozsahů, převod textu na datum, konverzi jednotek a měn.
  • Počet podle barvy, dílčí součty stránkování, třídění podle rozšířeného třídění a super filtru,
  • Více Vyberte / Vložit / Odstranit / Text / Formát / Odkaz / Komentář / Workbooks / Worksheets Nástroje ...

Snímka obrazovky Kutools pro Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Oleg · 9 months ago
    Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы?
  • To post as a guest, your comment is unpublished.
    nawal jha · 2 years ago
    i think it has one bug, it's automatically removed from module when sheet is closed, need to again every time when open sheet same process to be required, please advice how to save this formula in excel permanently.
  • To post as a guest, your comment is unpublished.
    NoOne · 2 years ago
    Please include this part:

    If you create a function called DISCOUNT in a workbook called Personal.xlsb and you call that function from another workbook, you must type =personal.xlsb!discount(), not simply =discount().

    https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
  • To post as a guest, your comment is unpublished.
    Adam Pavey · 2 years ago
    Very helpful. Exactly what I was after.
  • To post as a guest, your comment is unpublished.
    Sridhar · 3 years ago
    Thank you very much.. its working.. u rocks