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 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):
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
