Ga naar hoofdinhoud

 Hoofdletters of woorden die met een hoofdletter beginnen, extraheren uit tekstreeksen?

Auteur: Xiaoyang Laatst gewijzigd: 2017-07-24

Als u een lijst met tekstreeksen heeft, wilt u nu alleen alle hoofdletters of de woorden die met een hoofdletter beginnen uit de cellen halen. Hoe zou je het in Excel kunnen oplossen?

Extraheer hoofdletters uit tekstreeksen met door de gebruiker gedefinieerde functie

Extraheer woorden die beginnen met een hoofdletter uit tekstreeksen met door de gebruiker gedefinieerde functie


Extraheer hoofdletters uit tekstreeksen met door de gebruiker gedefinieerde functie

De volgende VBA-code kan u helpen om alleen de hoofdletters uit cellen te extraheren, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: extraheer alleen hoofdletters uit tekstreeksen:

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

3. Sla vervolgens de code op en sluit deze code, ga terug naar het werkblad en voer deze formule in: = EXTRACTCAP (A2) in een lege cel waar u het resultaat wilt uitvoeren en sleep vervolgens de vulgreep naar de cellen waarop u deze formule wilt toepassen, en alle hoofdletters zijn in één keer geëxtraheerd, zie screenshot:


Extraheer woorden die beginnen met een hoofdletter uit tekstreeksen met door de gebruiker gedefinieerde functie

Als u de woorden die met een hoofdletter beginnen uit tekstreeksen moet halen, kan de volgende VBA-code u misschien helpen.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Module, kopieer en plak vervolgens de volgende code in het Module Venster.

VBA-code: extraheer woorden die met een hoofdletter beginnen:

Functie 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) Dan xRet = xRet & xStrList (I) & "" End If Next StrExtract = Left (xRet, Len (xRet) - 1) End If End-functie

3. En sla vervolgens de code op en sluit het codevenster, voer deze formule in: = StrExtract (A2) in een lege cel naast uw gegevens, sleep vervolgens de vulgreep naar de cellen waarvan u het resultaat wilt krijgen, en alle woorden die beginnen met een hoofdletter worden geëxtraheerd, zie screenshot:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations