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ů:

Function ExtractCap(Txt As String) As String
'Updateby Extendoffice
    Application.Volatile
    Dim xRegEx As Object
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    xRegEx.Pattern = "[^A-Z]"
    xRegEx.Global = True
    ExtractCap = xRegEx.Replace(Txt, "")
    Set xRegEx = Nothing
End Function

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:

Function StrExtract(Str As String) As String
'Updateby Extendoffice
    Application.Volatile
    Dim xStrList As Variant
    Dim xRet As String
    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: