Gå til hovedindhold

 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

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

Beskrivelse


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!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jestem Excelowym laikiem, ale próbowałam postępować zgodnie z wytycznymi... oworzyłam alt+F11, insert->module i wstawiłam skopiowaną formułę. Przy próbie zapisu wywala mi błąd, coś o makrach... help!
This comment was minimized by the moderator on the site
Hello, Hania

Could you give your problem more detailed? Please insert your problem as a screenshot here if you don't mind.
Thank you!
This comment was minimized by the moderator on the site
Hi,

How can I assign this function to 1 specific worksheet only?
This comment was minimized by the moderator on the site
Nvm - not necessary anymore
This comment was minimized by the moderator on the site
hi,

thanks for this formula, however my =EXTRACTCAP(A2) keeps coming back with an error.

can you help?
This comment was minimized by the moderator on the site
Hi, Sonia,
The above User Defined Function works well in my Excel workbook, which Excel version do you use?
Or have you copied and pasted the above code into your VBA module?
This comment was minimized by the moderator on the site
У вас так и написано "вставьте следующий код в модуль".
У меня тоже ошибка
This comment was minimized by the moderator on the site
у вас страница была открыта на русском языке? Удалите /ru из ссылки: https://www.extendoffice.com/documents/excel/4554-excel-extract-capital-letters.html#a1
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations