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 familiar dengan VBA atau User Defined Functions, Anda dapat mengkodekannya dan menghapus semua karakter non-alfanumerik secara massal. Namun di sini, saya akan merekomendasikan alat yang luar biasa, Hapus Karakter fitur dari Kutools untuk Excel, yang dapat menghapus semua jenis karakter hanya dengan 2 klik!

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.

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.