Cara menggunakan pengganti di vba (dengan contoh)

Anda dapat menggunakan metode Substitute() di VBA untuk mengganti semua kemunculan teks tertentu dalam string dengan teks baru.

Metode ini menggunakan sintaks dasar berikut:

Pengganti (Teks, Teks_Lama, Teks_Baru, Nomor_Instance)

Emas:

• Teks : Teks yang karakternya ingin Anda ganti
• Old_text : Teks yang akan diganti
• New_text : Teks yang akan digunakan sebagai pengganti
• Instance_num ( opsional ) : contoh teks lama mana yang akan diganti. Jika tidak ada yang ditentukan, semua kemunculan teks lama akan diganti.

Contoh berikut menunjukkan cara menggunakan metode ini dalam praktik.

Contoh: Cara menggunakan Pengganti di VBA

Misalkan kita memiliki daftar ekspresi berikut di Excel:

Misalkan kita ingin mengganti setiap spasi di setiap sel dengan koma.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", ",")
Next
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap spasi di setiap sel di kolom A telah diganti dengan koma.

Perhatikan bahwa kita juga bisa menggunakan sintaks berikut untuk mengganti setiap spasi dengan apa pun:

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", "")
Next
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap spasi di setiap sel di kolom A telah diganti dengan apa pun.

Dengan kata lain, kami menghapus setiap spasi dari setiap sel di kolom A.

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