Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menghapus karakter non-alfanumerik di Excel?

Misalkan ada berbagai data, seperti JAMES0898 # 4% ^ {}, yang berisi karakter non-alfanumerik dalam lembar kerja, dan sekarang Anda hanya ingin menghapus karakter non-alfanumerik dan mempertahankan karakter alfanumerik. Sebagai contoh, JAMES0898 # 4% ^ {} > JAMES0898. Bagaimana Anda dengan cepat menghapus karakter non-alfanumerik di Excel?


Hapus karakter non-alfanumerik dengan kode VBA

Dengan kode VBA singkat berikut, Anda juga dapat menghapus karakter non-alfanumerik. Anda dapat melakukannya seperti ini:

1. tekan lain + F11 kunci bersama untuk membuka Microsoft Visual Basic untuk aplikasi jendela.

2. klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke dalam Modul:

VBA: Hapus semua karakter non-alfanumerik

Sub RemoveNotAlphasNotNum()
'Updateby2014128
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 "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. tekan F5 atau klik Run tombol untuk menjalankan kode.

4. Kemudian pilih rentang yang ingin Anda hapus semua karakter non-alfanumerik di dialog pop-up, dan klik OK .

Sekarang semua karakter non-alfanumerik telah dihapus dari kisaran yang dipilih. Lihat tangkapan layar:

2 klik untuk menghapus semua karakter non-alfanumerik dengan alat yang luar biasa

Kami biasanya meletakkan kursor ke dalam sel dan kemudian menghapus karakter non-alfanumerik satu per satu secara manual. Jika Anda sudah familiar dengan VBA atau User Defined Functions, Anda dapat mengkodekannya dan menghapus semua karakter non-alfanumerik secara massal. Tapi di sini, saya akan merekomendasikan alat yang luar biasa, fitur Hapus Karakter dari Kutools for Excel, yang dapat menghapus semua jenis karakter hanya dengan 2 klik! Uji Coba Gratis Fitur Lengkap 30 hari!

Hapus karakter non-alfanumerik dengan User Defined Function

Anda juga dapat menentukan fungsi kustom untuk menghapus semua karakter non-alfanumerik dari sel di Excel.

1. tekan lain + F11 kunci bersama untuk membuka Microsoft Visual Basic untuk aplikasi jendela.

2. Klik Menyisipkan > Modul, lalu tempel kode di bawah ini ke dalam Modul:

Fungsi Buatan Pengguna: Hapus semua karakter non-alfanumerik

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Sekarang kembali ke lembar kerja, pilih sel kosong, dan masukkan rumusnya = DeleteNonAlphaNumeric (B3), lalu seret unduhan pegangan IsiOtomatis untuk menerapkan rumus ini ke sel lain.


Hapus karakter non-alfanumerik dengan Kutools for Excel

Dengan dua metode di atas, Anda perlu mengetahui kodenya, tetapi sebagai pemula Excel, kebanyakan dari kita tidak dapat menggunakan kode tersebut, jadi di sini saya akan memberi Anda cara mudah untuk melakukannya.

Kutools untuk Excel- Termasuk lebih dari 300 alat praktis untuk Excel. Uji coba gratis fitur lengkap 30 hari, tidak perlu kartu kredit! Get It Now

Jika Anda telah menginstal Kutools for Excel, lakukan sebagai langkah berikut:

1. Pilih rentang yang Anda perlukan untuk menghapus karakter non-alfanumerik, dan klik Kutools > Teks > Hapus Karakter.

2. Lalu a Hapus Karakter kotak dialog akan muncul, centang saja Non-alfanumerik pilihan, dan klik Ok .

Sekarang semua karakter non-alfanumerik telah dihapus dari string teks.


Artikel terkait:


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-2019 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.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah berbagi, tetapi masih tidak menyukai metode kotak input ... : D
Komentar ini diminimalkan oleh moderator di situs
Metode VBA berfungsi, tetapi hanya berfungsi pada rentang yang dipilih. Anda tidak dapat menentukan output ke dalam rentang sel yang berbeda dari input. Jadi, Anda harus menyalin data sumber ke dalam rentang target, memilih data, menjalankan skrip dan mengizinkannya untuk menampilkan ke rentang default. Juga, titik (.) tidak dianggap sebagai karakter khusus, jadi jika Anda ingin menghapusnya juga, Anda harus mencari dan menggantinya.
Komentar ini diminimalkan oleh moderator di situs
Bagaimana Anda menghapus karakter sambil menjaga pemisah spasi?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan