Direkt zum Inhalt

 Wie extrahiere ich Großbuchstaben oder Wörter, die mit Großbuchstaben beginnen, aus Textzeichenfolgen?

Wenn Sie eine Liste mit Textzeichenfolgen haben, möchten Sie jetzt nur alle Großbuchstaben oder die Wörter, die mit einem Großbuchstaben beginnen, aus den Zellen extrahieren. Wie können Sie es in Excel lösen?

Extrahieren Sie mit der benutzerdefinierten Funktion Großbuchstaben aus Textzeichenfolgen

Extrahieren Sie Wörter, die mit Großbuchstaben beginnen, mit der benutzerdefinierten Funktion aus Textzeichenfolgen


Extrahieren Sie mit der benutzerdefinierten Funktion Großbuchstaben aus Textzeichenfolgen

Der folgende VBA-Code kann Ihnen helfen, nur die Großbuchstaben aus Zellen zu extrahieren. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Extrahieren Sie nur Großbuchstaben aus Textzeichenfolgen:

Funktion 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. Speichern Sie dann den Code und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = EXTRACTCAP (A2) in eine leere Zelle, in der Sie das Ergebnis ausgeben möchten, und ziehen Sie dann den Füllpunkt nach unten zu den Zellen, auf die Sie diese Formel anwenden möchten. Alle Großbuchstaben wurden gleichzeitig extrahiert (siehe Abbildung):


Extrahieren Sie Wörter, die mit Großbuchstaben beginnen, mit der benutzerdefinierten Funktion aus Textzeichenfolgen

Wenn Sie die Wörter, die mit einem Großbuchstaben beginnen, aus Textzeichenfolgen extrahieren müssen, kann Ihnen der folgende VBA-Code helfen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > ModulKopieren Sie dann den folgenden Code und fügen Sie ihn in das Feld ein Modul Fenster.

VBA-Code: Wörter extrahieren, die mit Großbuchstaben beginnen:

Funktion StrExtract (Str As String) As String 'Updateby Extendoffice
    Application.Volatile Dim xStrList als Variante Dim xRet als String Dim I so lange Wenn Len (Str) = 0, dann Exit-Funktion xStrList = Split (Str, "") Wenn UBound (xStrList)> = 0 Dann für I = 0 bis UBound ( xStrList) Wenn xStrList (I) = StrConv (xStrList (I), vbProperCase), dann xRet = xRet & xStrList (I) & "" End If Next StrExtract = Left (xRet, Len (xRet) - 1) End If End Function

3. Speichern Sie dann den Code und schließen Sie das Codefenster. Geben Sie die folgende Formel ein: = StrExtract (A2) Ziehen Sie den Füllpunkt in eine leere Zelle neben Ihren Daten und ziehen Sie ihn nach unten zu den Zellen, in denen Sie das Ergebnis erhalten möchten. Alle Wörter, die mit einem Großbuchstaben beginnen, werden extrahiert (siehe Abbildung):

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
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