Cara menghilangkan Angka di dalam text Excel

1. select cells

2. tekan Alt + F11
3. klik Insert > add module

4. Copy paste kode beikut :


Sub clear()
s = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
For Each r In Selection
v = r.Value
For i = 0 To 9
v = Replace(v, s(i), "")
Next
r.Value = v
Next
End Sub

5. klik run atau F5