Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe hoofdletters of woorden te extraheren die beginnen met een hoofdletter van tekstreeksen?

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

Hoofdletters uit tekstreeksen extraheren met door de gebruiker gedefinieerde functie

Extracteer woorden die beginnen met een hoofdletter uit tekstreeksen met Door de gebruiker gedefinieerde functie


Hoofdletters uit tekstreeksen extraheren met door de gebruiker gedefinieerde functie


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

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

2. Klik op bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: pak alleen hoofdletters uit tekststrings:

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, "") Stel xRegEx = Nothing End Function in

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 die u deze formule wilt toepassen, en alle hoofdletters zijn in één keer geëxtraheerd, zie screenshot:


Extracteer woorden die beginnen met een hoofdletter uit tekstreeksen met Door de gebruiker gedefinieerde functie

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

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

2. Klikken bijvoegsel > module, kopieer en plak vervolgens de volgende code in de module Venster.

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

Functie StrExtract (Str As String) Als String 'Updateby Extendoffice Application.Volatile Dim xStrList As Variant Dim xRet As String Dim I As Long If Len (Str) = 0 Then Exit Functie xStrList = Split (Str, "") If UBound (xStrList )> = 0 Dan voor I = 0 naar UBound (xStrList) Als xStrList (I) = StrConv (xStrList (I), vbProperCase) Dan xRet = xRet & xStrList (I) & "" End If Next strExtract = Left (xRet, Len (xRet) - 1) Einde als eindfunctie

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 dan de vulgreep naar de cellen die u het resultaat wilt laten krijgen, en alle woorden die beginnen met een hoofdletter worden geëxtraheerd, zie screenshot:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sonia · 7 months ago
    hi,

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

    can you help?