Bagaimana cara mengganti semua angka dalam sel dengan X di Excel?
Seperti gambar di bawah ini yang ditunjukkan, bagaimana cara mengganti semua angka dalam sel dengan x di Excel? Metode dalam artikel ini akan membantu Anda memecahkan masalah.
Ganti semua angka dalam sel dengan x dengan kode VBA
Ganti semua angka dalam sel dengan x dengan kode VBA
Kode VBA berikut dapat membantu Anda mengganti semua angka di sel yang dipilih dengan X di Excel. Silakan lakukan sebagai berikut.
1. Pilih sel yang berisi angka yang akan Anda ganti dengan x, dan kemudian tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Kode.
Kode VBA: Ganti semua angka dalam rentang yang dipilih dengan x di Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode. Kemudian Anda dapat melihat semua angka di sel yang dipilih diganti dengan x seperti gambar di bawah ini.
Artikel terkait:
- Bagaimana menemukan dan mengganti semua sel kosong dengan angka atau teks tertentu di Excel?
- Bagaimana cara mengganti koma dengan baris baru (Alt + Enter) di sel di Excel?
- Bagaimana cara mengganti jeda baris dengan br di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!