Vba: cara menghapus angka dari string

Anda bisa membuat fungsi berikut di VBA untuk menghapus angka dari string di sel di Excel:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

Anda kemudian dapat menggunakan fungsi ini untuk menghapus angka dari sel mana pun yang Anda inginkan di Excel.

Contoh berikut menunjukkan cara menggunakan fungsi ini dalam praktiknya.

Contoh: Menghapus Angka dari String Menggunakan VBA

Misalkan kita memiliki daftar ID karyawan berikut di Excel:

Katakanlah kita ingin menghilangkan digit dari setiap string di kolom ID Karyawan .

Kita dapat membuat fungsi berikut di VBA untuk melakukan ini:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

Setelah kita membuat fungsi ini, kita kemudian dapat mengetikkan rumus berikut di sel B2 untuk mengembalikan nomor karyawan di sel A2 dengan semua digitnya dihapus:

 =RemoveNumbers( A2 )

Kita kemudian dapat mengklik dan menyeret rumus ini ke setiap sel yang tersisa di kolom B:

Kolom B menampilkan masing-masing string di kolom A dengan digit yang dihilangkan.

Misalnya:

• 4009Andy menjadi Andy
• 1540Bob menjadi Bob
• 1500Chad09 menjadi Chad
• 1600Doug menjadi Doug

Dan seterusnya.

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