Vba: so entfernen sie führende und nachgestellte leerzeichen

Sie können die folgende grundlegende Syntax verwenden, um mit VBA führende und nachgestellte Leerzeichen aus Zeichenfolgen zu entfernen:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

In diesem speziellen Beispiel werden führende und nachgestellte Leerzeichen aus jeder Zeichenfolge im Bereich A2:A7 entfernt und die Ergebnisse im Bereich B2:B7 ausgegeben.

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: Verwenden von VBA zum Entfernen führender und nachfolgender Leerzeichen aus Zeichenfolgen

Angenommen, wir haben die folgende Liste von Zeichenfolgen in Excel:

Beachten Sie, dass viele Zeichenfolgen führende oder nachgestellte Leerzeichen enthalten.

Angenommen, wir möchten führende und nachgestellte Leerzeichen aus jeder Zeichenfolge entfernen.

Dazu können wir das folgende Makro erstellen:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Spalte B zeigt jede der Zeichenfolgen in Spalte A an, wobei führende und nachgestellte Leerzeichen entfernt wurden.

Beachten Sie, dass Sie die Funktionen LTrim bzw. RTrim verwenden können, wenn Sie nur führende oder nachgestellte Leerzeichen aus Zeichenfolgen entfernen möchten.

Hinweis : Die vollständige Dokumentation für jede der VBA- Trim- Funktionen finden Sie hier .

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