Jak extrahovat velká písmena nebo slova začínající velkým písmenem z textových řetězců?
Pokud máte seznam textových řetězců, nyní chcete z buněk extrahovat pouze velká písmena nebo slova začínající velkým písmenem. Jak byste to mohli vyřešit v aplikaci Excel?
Extrahujte velká písmena z textových řetězců pomocí funkce definované uživatelem
Extrahujte slova začínající velkým písmenem z textových řetězců pomocí funkce definované uživatelem
Extrahujte velká písmena z textových řetězců pomocí funkce definované uživatelem
Následující kód VBA vám pomůže extrahovat z buněk pouze velká písmena, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Extrahujte pouze velká písmena z textových řetězců:
Funkce ExtractCap (Txt jako řetězec) jako řetězec 'Updateby Extendoffice Application.Volatile Dim xRegEx jako sada objektů xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Nastavit xRegEx = nic Konec funkce
3. Poté kód uložte a zavřete tento kód, vraťte se do listu a zadejte tento vzorec: = EXTRACTCAP (A2) do prázdné buňky, kde chcete výsledek zobrazit, a poté přetáhněte popisovač výplně dolů do buněk, na které chcete použít tento vzorec, a všechna velká písmena byla extrahována najednou, viz screenshot:
Extrahujte slova začínající velkým písmenem z textových řetězců pomocí funkce definované uživatelem
Pokud potřebujete z textových řetězců extrahovat slova začínající velkým písmenem, může vám pomoci následující kód VBA.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modul, poté zkopírujte a vložte následující kód do souboru Modul Okno.
Kód VBA: Extrahujte slova začínající velkým písmenem:
Funkce StrExtract (Str jako řetězec) jako řetězec 'Updateby Extendoffice Application.Volatile Dim xStrList jako varianta Dim xRet jako řetězec Dim I As Long If Len (Str) = 0 Then Exit Function xStrList = Split (Str, "") If UBound (xStrList)> = 0 Then For I = 0 To UBound ( xStrList) If xStrList (I) = StrConv (xStrList (I), vbProperCase) Then xRet = xRet & xStrList (I) & "" End If Next StrExtract = Left (xRet, Len (xRet) - 1) End If End Function
3. A poté uložte kód a zavřete okno s kódem, zadejte tento vzorec: = StrExtract (A2) do prázdné buňky vedle svých dat, pak přetáhněte popisovač výplně dolů do buněk, které chcete získat výsledek, a všechna slova, která začínají velkým písmenem, jsou extrahována, viz screenshot:
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!