Vba: jak usunąć spacje początkowe i końcowe

Aby usunąć spacje początkowe i końcowe z ciągów znaków za pomocą języka VBA, możesz użyć następującej podstawowej składni:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

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

W tym konkretnym przykładzie usuwane są początkowe i końcowe spacje z każdego ciągu w zakresie A2:A7 i zwracane są wyniki w zakresie B2:B7 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: użycie VBA do usunięcia spacji początkowych i końcowych z ciągów

Załóżmy, że mamy następującą listę ciągów w Excelu:

Należy pamiętać, że wiele ciągów znaków ma spacje początkowe lub końcowe.

Załóżmy, że chcemy usunąć początkowe i końcowe spacje z każdego ciągu.

W tym celu możemy utworzyć następujące makro:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna B wyświetla każdy ciąg z kolumny A z usuniętymi spacjami początkowymi i końcowymi.

Pamiętaj, że jeśli chcesz usunąć z ciągów tylko spacje początkowe lub końcowe, możesz użyć odpowiednio funkcji LTrim lub RTrim .

Uwaga : Pełną dokumentację każdej funkcji VBA Trim znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania przy użyciu języka VBA:

VBA: Jak liczyć wystąpienia znaków w ciągu
VBA: jak sprawdzić, czy ciąg zawiera inny ciąg
VBA: Jak liczyć komórki zawierające określony tekst