Kako izvleči velike črke ali besede, ki se začnejo z veliko črko, iz besedilnih nizov?

Če imate seznam besedilnih nizov, želite zdaj iz celic izluščiti samo velike tiskane črke ali besede, ki se začnejo z veliko začetnico. Kako ste ga lahko rešili v Excelu?

Izvlecite velike črke iz besedilnih nizov z uporabniško določeno funkcijo

Iz besednih nizov z uporabniško določeno funkcijo izvlecite besede, ki se začnejo z veliko začetnico

Izvlecite velike črke iz besedilnih nizov z uporabniško določeno funkcijo

Naslednja koda VBA vam lahko pomaga, da iz celic izvlečete samo velike črke, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Iz besedilnih nizov izvlecite samo velike črke:

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. Nato shranite kodo in zaprite to kodo, se vrnite na delovni list, vnesite to formulo: = EXTRACTCAP (A2) v prazno celico, kjer želite izpisati rezultat, in nato povlecite ročico za polnjenje navzdol do celic, za katere želite uporabiti to formulo, in vse velike črke so bile izvlečene hkrati, glejte posnetek zaslona:

Iz besednih nizov z uporabniško določeno funkcijo izvlecite besede, ki se začnejo z veliko začetnico

Če morate iz besedilnih nizov izvleči besede, ki se začnejo z veliko začetnico, vam bo morda v pomoč naslednja koda VBA.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, nato kopirajte in prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Izvleček besed, ki se začnejo z veliko začetnico:

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. Nato shranite kodo in zaprite okno s kodo, vnesite to formulo: = StrExtract (A2) v prazno celico poleg vaših podatkov, nato povlecite ročico za polnjenje navzdol do celic, za katere želite dobiti rezultat, in vse besede, ki se začnejo z veliko začetnico, so izvlečene, glejte posnetek zaslona: