Vba: bir dizedeki boşluklar nasıl kaldırılır

VBA kullanarak bir dizedeki boşlukları kaldırmak için aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

Bu özel örnek, A2:A8 aralığındaki her dizedeki boşlukları kaldırır ve sonuçları B2:B8 aralığında görüntüler.

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

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

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

Her dizedeki boşlukları kaldırmak istediğimizi varsayalım.

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

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(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 boşlukları kaldırılmış olarak görüntüler.

Not : VBA Değiştirme yöntemine ilişkin tüm belgeleri 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?