Vba: cara menghapus karakter terakhir dari sebuah string

Anda dapat menggunakan sintaks dasar berikut untuk menghapus karakter terakhir dari string menggunakan VBA:

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 1)
    Next i
    
End Sub

Contoh khusus ini menghapus karakter terakhir dari setiap string dalam rentang A2:A11 dan menampilkan hasilnya dalam rentang B2:B11 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Menggunakan VBA untuk Menghapus Karakter Terakhir dari String

Misalkan kita memiliki daftar nama tim bola basket berikut di Excel:

Katakanlah kita ingin menghapus karakter terakhir dari setiap nama tim.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub RemoveLastChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 1)
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B menampilkan setiap string di kolom A dengan karakter terakhir dihapus.

Jika Anda ingin menghapus n karakter terakhir dari sebuah string, cukup ganti 1 di metode Kiri dengan nomor lain.

Misalnya, kita dapat membuat makro berikut untuk menghapus 2 karakter terakhir dari sebuah string:

 Sub RemoveLastTwoChar()

    Dim i As Integer
    Dim myString As String

    For i = 2 To 11
    myString = Range(" A " & i)
    Range(" B " & i) = Left(myString, Len(myString) - 2)
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B menampilkan masing-masing string di kolom A dengan dua karakter terakhir dihapus.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Left 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