Vba: cara menghapus spasi awal dan akhir

Anda dapat menggunakan sintaks dasar berikut untuk menghapus spasi di depan dan di belakang string menggunakan VBA:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

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

Contoh khusus ini menghilangkan spasi di awal dan akhir dari setiap string dalam rentang A2:A7 dan menampilkan hasilnya dalam rentang B2:B7 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Menggunakan VBA untuk Menghapus Spasi Awal dan Akhir dari String

Misalkan kita memiliki daftar string berikut di Excel:

Perhatikan bahwa banyak string memiliki spasi di awal atau di akhir.

Misalkan kita ingin menghapus spasi di awal dan akhir dari setiap string.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B menampilkan masing-masing string di kolom A dengan spasi di depan dan di belakangnya dihilangkan.

Perhatikan bahwa jika Anda hanya ingin menghapus spasi awal dan akhir dari string, Anda dapat menggunakan fungsi LTrim atau RTrim masing-masing.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk masing-masing fungsi VBA Trim di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya menggunakan VBA:

VBA: Cara menghitung kemunculan karakter dalam sebuah string
VBA: cara memeriksa apakah suatu string berisi string lain
VBA: Cara menghitung sel dengan teks tertentu