Hvordan udtrækkes store bogstaver eller ord, der starter med store bogstaver fra tekststrenge?
Hvis du har en liste med tekststrenge, vil du kun udtrække alle store bogstaver eller ordene, der starter med et stort bogstav fra cellerne. Hvordan kunne du løse det i Excel?
Uddrag store bogstaver fra tekststrenge med brugerdefineret funktion
Uddrag ord, der starter med store bogstaver fra tekststrenge med brugerdefineret funktion
Uddrag store bogstaver fra tekststrenge med brugerdefineret funktion
Følgende VBA-kode kan hjælpe dig med kun at udtrække store bogstaver fra celler, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Uddrag kun store bogstaver fra tekststrenge:
Funktion ExtractCap (Txt som streng) Som streng 'Opdateret af Extendoffice Application.Volatile Dim xRegEx Som objektsæt xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Set xRegEx = Intet slutfunktion
3. Gem derefter koden, og luk denne kode, gå tilbage til regnearket, indtast denne formel: = EXTRACTCAP (A2) ind i en tom celle, hvor du vil sende resultatet, og træk derefter fyldhåndtaget ned til de celler, som du vil anvende denne formel, og alle store bogstaver er udtrukket på én gang, se skærmbillede:
Uddrag ord, der starter med store bogstaver fra tekststrenge med brugerdefineret funktion
Hvis du har brug for at udtrække de ord, der starter med et stort bogstav fra tekststrenge, kan følgende VBA-kode hjælpe dig.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, kopier og indsæt derefter følgende kode i Moduler Vindue.
VBA-kode: Uddrag ord, der starter med store bogstaver:
Funktion StrExtract (Str As String) Som String 'Updateby Extendoffice Application.Volatile Dim xStrList Som Variant Dim xRet As String Dim I Så længe Hvis Len (Str) = 0 Afslut derefter funktion xStrList = Split (Str, "") Hvis UBound (xStrList)> = 0 Så For I = 0 til UBound ( xStrList) Hvis xStrList (I) = StrConv (xStrList (I), vbProperCase) Derefter xRet = xRet & xStrList (I) & "" Afslut hvis næste StrExtract = Venstre (xRet, Len (xRet) - 1) Afslut hvis slutfunktion
3. Og gem derefter koden, og luk kodevinduet, indtast denne formel: = StrExtract (A2) ind i en tom celle ved siden af dine data, træk derefter udfyldningshåndtaget ned til de celler, som du vil få resultatet, og alle ord, der starter med et stort bogstav, udvindes, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!