Excel VBA TRIM-Funktion (erklärt mit Beispielen)

Excel verfügt bereits über eine TRIM-Arbeitsblattfunktion, mit der Sie führende, nachgestellte und zusätzliche Leerzeichen zwischen Wörtern/Zeichenfolgen entfernen können.

Es gibt auch eine TRIM-Funktion in VBA (und sie macht genau dasselbe - zusätzliche Leerzeichen entfernen).

Warum brauchen wir auch in VBA eine TRIM-Funktion?

Faire Frage!

Während Sie mit der integrierten TRIM-Funktion in Excel-Arbeitsblättern arbeiten können, um Leerzeichen zu entfernen. In einigen Fällen müssen Sie dies möglicherweise mit VBA tun.

Dies könnte Teil eines größeren Codes sein.

Syntax der VBA TRIM-Funktion

TRIM(Zeichenfolge)

„String“ ist das Argument, das eine Textzeichenfolge oder eine Variable sein kann, die eine Textzeichenfolge enthält.

Lassen Sie uns anhand einiger Beispiele lernen, wie Sie die VBA TRIM-Funktion verwenden.

Beispiel 1 - Ergebnis in einem Nachrichtenfeld anzeigen

Angenommen, Sie haben den folgenden Text in Zelle A1

Beachten Sie, dass vor und nach dem Satz Leerzeichen stehen.

Der folgende Code würde diesen Satz nehmen und das Ergebnis nach dem Trimmen der zusätzlichen Leerzeichen anzeigen

Sub TrimExample1() MsgBox Trim(Range("A1")) End Sub

Bei der Verwendung der TRIM-Funktion in VBA gibt es eine wichtige Sache zu wissen - sie entfernt nur die führenden und abschließenden Leerzeichen. Die zusätzlichen Leerzeichen zwischen den Wörtern werden nicht entfernt (was die integrierte TRIM-Funktion im Arbeitsblatt tut).

Angenommen, Sie haben in Zelle A1 den folgenden Text (mit zusätzlichen Leerzeichen zwischen den Wörtern):

Wenn ich den obigen VBA-Code verwende, wird ein Meldungsfeld wie unten gezeigt angezeigt:

Wie Sie im Ergebnis der Meldungsbox sehen können, werden die zusätzlichen Leerzeichen zwischen den Wörtern nicht von der VBA TRIM-Funktion entfernt.

Was ist dann die Alternative?

Wenn Sie führende, nachgestellte und doppelte Leerzeichen zwischen Wörtern entfernen möchten, verwenden Sie besser den folgenden Code:

Sub TrimExample1() MsgBox WorksheetFunction.Trim(Range("A1")) End Sub

Der obige Code verwendet die TRIM-Funktion des Arbeitsblatts (anstelle der TRIM-Funktion in VBA).

Hinweis: Die VBA Trim-Funktion entfernt nicht die Nicht-Leerzeichen - wie Zeilenumbrüche (vbNewLine, vbCrLf) etc.

Beispiel 2 – Entfernen Sie führende und nachgestellte Leerzeichen schnell aus einem Bereich von Zellen

Angenommen, Sie haben einen Datensatz wie unten gezeigt mit führenden und nachgestellten Leerzeichen:

Sie können den folgenden Code verwenden, um diese Daten sofort zu bereinigen und alle führenden und abschließenden Leerzeichen zu entfernen:

Sub TrimExample1() Dim Rng As Range Set Rng = Auswahl für jede Zelle in Rng Cell.Value = Trim(Cell) Next Cell End Sub

Der obige Code durchläuft alle Zellen in der Auswahl und entfernt die führenden und nachgestellten Leerzeichen.

Die folgenden Excel/VBA-Tutorials könnten Ihnen auch gefallen:

• 10 Möglichkeiten zum Bereinigen von Daten in Excel.
• Excel VBA-Split-Funktion.
• Excel VBA InStr-Funktion.
• VBA LCase-Funktion.
• VBA UCase-Funktion.
• Erstellen einer benutzerdefinierten Funktion (UDF) in Excel VBA.