Bagaimana cara menghapus karakter non numerik dari sel di Excel?

Misalkan Anda memiliki lembar kerja dengan banyak data seperti itu ABCD4578124YUIOH, dan Anda hanya ingin menghapus karakter non-numerik  ABCDYUIOH tapi pertahankan karakter numerik dalam sel. Tentu saja, Anda dapat menghapus karakter tersebut satu per satu, tetapi di sini Anda dapat menghapus karakter non-numerik dari sel dengan cepat seperti berikut:

Hapus karakter non-numerik dengan kode VBA

Alat praktis untuk menghapus karakter non-numerik dengan satu klik

Hapus karakter non-numerik dengan kode VBA

Untuk menghapus karakter non-numerik dari kisaran dengan kode VBA, lakukan hal berikut:

1. Klik Pengembang > Visual Basic untuk membuka Microsoft Visual Basic untuk aplikasi jendela. Dalam Microsoft Visual Basic untuk aplikasi window, klik Menyisipkan > Modul, lalu salin dan tempel kode berikut ke dalam modul:

VBA: Hapus semua karakter non-numerik

Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

2. Kemudian klik tombol untuk menjalankan kode, Dalam bermunculan KutoolsforExcel kotak dialog, pilih rentang dengan karakter non-numerik yang ingin Anda hapus, lalu klik OK tombol. Lihat tangkapan layar:

3. Kemudian semua karakter non-numerik dalam rentang yang dipilih dihapus.

Jika angka dengan titik desimal, Anda dapat menggunakan VBA berikut:

Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

Anda dapat melihat hasilnya seperti gambar di bawah ini:

Alat praktis untuk menghapus karakter non-numerik dengan satu klik

Untuk menghapus karakter non-numerik dalam suatu rentang, Kutools untuk Excel'S Hapus Karakter utilitas dapat menyelesaikannya dengan satu klik.

Setelah menginstal Kutools untuk Excel, lakukan seperti di bawah ini:

1. Sorot rentang yang ingin Anda hapus karakter non-numerik. Klik Kutools > Teks > Hapus Karakter.

2. di Hapus Karakter kotak dialog, periksa Non-numerik pilihan dalam Hapus Karakter bagian, dan kemudian klik OK or Apply tombol. Dan karakter non-numerik segera dihapus dari pilihan. Lihat tangkapan layar:

Klik untuk Mengunduh Kutools for Excel dan uji coba gratis Sekarang!

Untuk informasi lebih rinci tentang Hapus Karakter dari Kutools for Excel, silakan kunjungi Hapus deskripsi fitur karakter.

Demo: Hapus karakter numerik, alfabet, tidak dapat dicetak atau alfanumerik dari sel

Artikel terkait:

• Hapus karakter alfa dari sel
• Hapus karakter numerik dari sel
• Hapus karakter yang tidak dapat dicetak dari sel
• Hapus karakter non-alfa dari sel
• Hapus karakter non-alfanumerik

---

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
• Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
• Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
• Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
• Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
• Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
• Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
• Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

Read More ... Download Gratis... Membeli... 

---

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!

Read More ... Download Gratis... Membeli...