Vba: so extrahieren sie text zwischen zwei zeichen

Sie können in VBA die folgende benutzerdefinierte Funktion erstellen, um Text zwischen zwei bestimmten Zeichen zu extrahieren:

 Function ExtractBetween(this_text, start_char, end_char)

StartPosition = InStr(this_text, start_char)
EndPosition = InStr(this_text, end_char)

ExtractBetween = Mid(this_text, StartPosition + 1, EndPosition - StartPosition - 1)

End Function

Mit dieser Funktion können Sie dann den Text zwischen zwei bestimmten Zeichen in Excel in ein bestimmtes Zeichen extrahieren.

Das folgende Beispiel zeigt, wie Sie diese Funktion in der Praxis nutzen können.

Beispiel: Verwenden von VBA zum Extrahieren von Text zwischen zwei Zeichen

Angenommen, wir haben den folgenden Datensatz in Excel, der die ID-Werte und den Gesamtumsatz verschiedener Produkte in einem Unternehmen enthält:

Angenommen, wir möchten VBA verwenden, um den Text in Klammern für jede Zelle in Spalte A zu extrahieren und die Ergebnisse in Spalte C zurückzugeben.

Dazu können wir folgende Funktion erstellen:

 Function ExtractBetween(this_text, start_char, end_char)

StartPosition = InStr(this_text, start_char)
EndPosition = InStr(this_text, end_char)

ExtractBetween = Mid(this_text, StartPosition + 1, EndPosition - StartPosition - 1)

End Function

Anschließend können wir die folgende Formel in Zelle C2 eingeben, um den Text in Klammern für den Text in Zelle A2 zu extrahieren:

 =ExtractBetween( A2 , "(", ")")

Wir können dann auf diese Formel klicken und sie in jede verbleibende Zelle in Spalte C ziehen:

Spalte C zeigt jetzt den Text in Klammern für jede übereinstimmende Zelle in Spalte A an.

Hinweis : Diese Formel verwendet die Instr- Funktion in VBA, um die Position bestimmter Start- und Endzeichen zu extrahieren, und verwendet dann die Mid- Funktion, um den gesamten Text zwischen diesen beiden Zeichen zurückzugeben.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben mit VBA ausführen:

VBA: So zählen Sie das Vorkommen von Zeichen in einer Zeichenfolge
VBA: So überprüfen Sie, ob eine Zeichenfolge eine andere Zeichenfolge enthält
VBA: So zählen Sie Zellen mit bestimmtem Text