VBA TRIM

Excel VBA TRIM-Funktion

VBA TRIM ist unter den Zeichenfolgen- und Textfunktionen kategorisiert. Diese Funktion ist eine Arbeitsblattfunktion in VBA. Ähnlich wie die Arbeitsblattreferenz wird diese Funktion zum Trimmen oder Entfernen unerwünschter Leerzeichen aus einer Zeichenfolge verwendet. Es wird ein einzelnes Argument verwendet, das eine Eingabezeichenfolge ist und gibt eine Ausgabe als Zeichenfolge zurück.

Es gibt verschiedene Situationen, in denen wir die Daten von Online-Servern herunterladen und unorganisierte Daten und unerwünschte Speicherplätze in der Zelle haben. Der Umgang mit unnötigen Räumen ist sehr schmerzhaft. In regulären Arbeitsblattfunktionen haben wir eine Funktion namens TRIM in Excel, um "Leading Spaces, Trailing Spaces und Zwischenräume" zu entfernen . In VBA haben wir auch eine Funktion namens TRIM, die genauso funktioniert wie die Excel-Funktion, aber es gibt nur einen kleinen Unterschied, den wir etwas später in diesem Artikel sehen werden.

Was macht die Trimmfunktion?

TRIM ist eine Zeichenfolgenfunktion, die Leerzeichen in Excel aus der ausgewählten Zelle entfernt. In Räumen gibt es drei Typen: "Führende Räume, nachfolgende Räume und Zwischenräume" .

Leading Space ist nichts anderes als Leading Space , bevor ein Wert in der Zelle beginnt, wenn ein Leerzeichen vorhanden ist .

Trailing Space ist nichts anderes als nach dem Ende des Werts in der Zelle. Wenn Leerzeichen vorhanden sind, wird es als Trailing Space bezeichnet.

Zwischenraum ist nichts nach dem Ende eines jeden Wortes. Idealerweise sollten wir ein Leerzeichen haben. Alles, was mehr als ein Leerzeichen ist, wird Zwischenraum genannt.

Um all diese Probleme zu lösen, haben wir eine Funktion namens TRIM.

Syntax

Zeichenfolge : Welche Zeichenfolge oder welchen Wert möchten Sie zuschneiden? Dies kann sowohl eine Zellreferenz als auch eine direkte Wertversorgung der Formel sein.

Beispiele

Sie können diese VBA TRIM-Funktionsvorlage hier herunterladen - VBA TRIM-Funktionsvorlage

Beispiel 1

Jetzt werden wir sehen, wie führende Leerzeichen in Excel mit der TRIM-Funktion entfernt werden. Befolgen Sie die folgenden Schritte

Schritt 1: Erstellen Sie einen Makronamen und deklarieren Sie eine Variable als String.

Code:

 Sub Trim_Example1 () Dim k As String End Sub 

Schritt 2: Weisen Sie nun für diese deklarierte Variable mithilfe von TRIM einen Wert zu.

Code:

 Sub Trim_Example1 () Dim k As String k = Trim (End Sub 

Schritt 3: Geben Sie für diese Zeichenfolge das Wort in doppelten Anführungszeichen als "Willkommen bei VBA" ein.

Code:

 Sub Trim_Example1 () Dim k As String k = Trim ("Willkommen bei VBA") End Sub 

Schritt 4: Zeigen Sie nun das Ergebnis dieser Variablen im Meldungsfeld an.

Code:

 Sub Trim_Example1 () Dim k As String k = Trim ("Willkommen bei VBA") MsgBox k End Sub 

Schritt 5: Führen Sie diesen Code mit der Taste F5 aus oder führen Sie ihn manuell aus. Wir sollten eine korrekte Zeichenfolge im Meldungsfeld erhalten.

Ausgabe:

Die TRIM-Funktion hat also alle führenden Leerzeichen entfernt, die wir für den Zeichenfolgenwert eingegeben haben. Das Ergebnis ist nun ein korrekter Satz, dh "Willkommen bei VBA" .

Beispiel 2

Schauen Sie sich nun ein weiteres Beispiel an, um nachgestellte Leerzeichen zu entfernen. Nehmen Sie das gleiche Wort, aber geben Sie diesmal nachgestellte Leerzeichen ein.

„Willkommen bei VBA“.

Code:

 Sub Trim_Example2 () Dim k As String k = Trim ("Willkommen bei VBA") MsgBox k End Sub 

Führen Sie diesen Code manuell oder über die F5-Taste aus. Die Trimmfunktion entfernt auch nachgestellte Leerzeichen.

Ausgabe:

Beispiel 3 - Reinigen Sie die Daten in Zellen

Jetzt sehen wir das praktische Beispiel für die Bereinigung der Daten in Excel-Zellen. Angenommen, Sie haben einen Datensatz wie den folgenden in Ihrem Excel-Blatt.

Wenn wir mehr als eine Zellendaten haben, müssen wir verschiedene Codes schreiben. Führen Sie die folgenden Schritte aus, um Code zu schreiben.

Schritt 1: Deklarieren Sie eine Variable als "Bereich".

Code:

 Sub Trim_Example3 () Dim MyRange As Range End Sub 

Schritt 2: Da der Bereichsdatentyp ein Objekt ist, müssen Sie zuerst den Bereich festlegen. Stellen Sie den Bereich also als „Auswahl“ ein.

Code:

 Sub Trim_Example3 () MyRange als Bereich dimmen Set MyRange = Selection End Sub 

Hinweis: MyRange = Auswahl bedeutet, dass alle von mir ausgewählten Zellen zu einem Bereich werden. In diesem Bereich entfernt TRIM unerwünschte Leerzeichen.

Schritt 3: Wenden Sie jetzt für jede VBA-Schleife die TRIM-Funktion an.

Code:

 Sub Trim_Example3 () MyRange als Bereich dimmen Set MyRange = Auswahl für jede Zelle in MyRange cell.Value = Trim (Zelle) Next End Sub 

Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.

Step 5: Add a word to the inserted rectangular shape as click here to clean the data.

Step 6: Right-click on the rectangular shape and select the assign macro.

Step 7: Now the macro names box will open. Select the name of the macro we just created. Click on Ok.

 

Step 8: Now select the range where we need to clean the data.

Step 9: After selecting the range click on the assigned macro rectangular box. It will clean the data.

So we got cleaned value i.e. after removing leading & trailing spaces.

Difference Between Excel & VBA Trim Function

The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.

In cell A3 we have in-between spaces, if select and click on the rectangular shape it will only remove trailing & leading spaces, not in-between spaces.

To overcome this problem we need to use the trim function as a worksheet function in the code.

Code:

 Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub 

Here we have used worksheet function not a vba function. This will remove all kinds of spaces.

Things to Remember

  • VBA Trim & Worksheet Trim syntax is exactly the same.
  • It can only remove leading & trailing spaces, not in-between spaces.
  • Excel trim function can remove all kinds of spaces.