Vba: cara menghapus karakter khusus dari sebuah string

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

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

Contoh khusus ini menggantikan karakter khusus berikut dalam setiap string dalam rentang sel A2:A8 dan menghasilkan string baru dalam sel B2:B8 :

• !
• @
• #

Perhatikan bahwa kami menggunakan tiga metode Ganti yang disarangkan untuk menghapus masing-masing karakter khusus ini dari string.

Untuk menghapus lebih banyak karakter khusus, cukup gunakan metode Ganti yang lebih banyak.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Menghapus Karakter Khusus dari String Menggunakan VBA

Misalkan kita memiliki daftar string berikut di Excel:

Misalkan kita ingin menghapus karakter khusus berikut dari setiap string:

• !
• @
• #

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

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

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