Wie extrahiert man Großbuchstaben oder Wörter, die mit einem Großbuchstaben beginnen, aus Textzeichenfolgen?
Wenn Sie eine Liste von Textzeichenfolgen haben und nun ausschließlich alle Wörter extrahieren möchten, die vollständig aus Großbuchstaben bestehen oder mit einem Großbuchstaben beginnen – wie können Sie das in Excel umsetzen?
Extrahieren von Großbuchstaben aus Textzeichenfolgen mithilfe einer benutzerdefinierten Funktion
Extrahieren von Großbuchstaben aus Textzeichenfolgen mithilfe einer benutzerdefinierten Funktion
Der folgende VBA-Code hilft Ihnen, ausschließlich Großbuchstaben aus Zellen zu extrahieren. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Nur Großbuchstaben aus Textzeichenfolgen extrahieren:
Function ExtractCap(Txt As String) As String
'Updateby Extendoffice
Application.Volatile
Dim xRegEx As Object
Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
xRegEx.Pattern = "[^A-Z]"
xRegEx.Global = True
ExtractCap = xRegEx.Replace(Txt, "")
Set xRegEx = Nothing
End Function
3. Speichern Sie anschließend den Code und schließen Sie das Codefenster. Wechseln Sie zurück zum Arbeitsblatt und geben Sie die folgende Formel ein: =EXTRACTCAP(A2) in eine leere Zelle, in der das Ergebnis angezeigt werden soll. Ziehen Sie anschließend den Ausfüllknebel nach unten, um die Formel auf die gewünschten Zellen anzuwenden. Alle Großbuchstaben werden sofort extrahiert. Siehe Screenshot:
Extrahieren von Wörtern, die mit einem Großbuchstaben beginnen, aus Textzeichenfolgen mithilfe einer benutzerdefinierten Funktion
Wenn Sie aus Textzeichenfolgen die Wörter extrahieren möchten, die mit einem Großbuchstaben beginnen, hilft Ihnen der folgende VBA-Code weiter.
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applicationszu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den folgenden Code in das Modul-Fenster ein.
VBA-Code: Wörter extrahieren, die mit einem Großbuchstaben beginnen:
Function 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) Then
xRet = xRet & xStrList(I) & " "
End If
Next
StrExtract = Left(xRet, Len(xRet) - 1)
End If
End Function
3. Speichern Sie anschließend den Code und schließen Sie das Codefenster. Geben Sie die folgende Formel ein: =StrExtract(A2) in eine leere Zelle neben Ihren Daten, und ziehen Sie dann den Ausfüllknebel nach unten auf alle Zellen, für die Sie das Ergebnis erhalten möchten. Es werden automatisch alle Wörter extrahiert, die mit einem Großbuchstaben beginnen. Siehe Screenshot:
Beste Office-Produktivitätstools
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins