Vba: baştaki ve sondaki boşluklar nasıl kaldırılır

VBA’yı kullanarak dizelerin başındaki ve sonundaki boşlukları kaldırmak için aşağıdaki temel sözdizimini kullanabilirsiniz:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

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

Bu özel örnek, A2:A7 aralığındaki her dizenin başındaki ve sonundaki boşlukları kaldırır ve sonuçları B2:B7 aralığında verir.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: Dizelerden Öndeki ve Sondaki Boşlukları Kaldırmak için VBA’yı Kullanma

Excel’de aşağıdaki dize listesine sahip olduğumuzu varsayalım:

Birçok dizenin başında veya sonunda boşluk bulunduğunu unutmayın.

Her dizenin başındaki ve sonundaki boşlukları kaldırmak istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

B sütunu, A sütunundaki dizelerin her birini, baştaki ve sondaki boşluklar kaldırılmış olarak görüntüler.

Dizelerden yalnızca baştaki veya sondaki boşlukları kaldırmak istiyorsanız sırasıyla LTrim veya RTrim işlevlerini kullanabileceğinizi unutmayın.

Not : VBA Trim işlevlerinin her birine ilişkin belgelerin tamamını burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA kullanarak diğer genel görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir dizedeki karakterlerin oluşumları nasıl sayılır?
VBA: bir dizenin başka bir dize içerip içermediği nasıl kontrol edilir
VBA: Belirli bir metin içeren hücreler nasıl sayılır?