Bagaimana cara menghapus karakter non-bahasa Inggris di kolom Excel?

Misalnya, ， berikut adalah daftar nama yang menyertakan beberapa karakter non-Inggris. Bagaimana Anda bisa dengan cepat menghapus sel yang berisi karakter non-bahasa Inggris di Excel?

Hapus baris yang berisi karakter non-Inggris oleh VBA

Hapus karakter non-Inggris dari string dengan Hapus Karakter

Hapus baris yang berisi karakter non-Inggris oleh VBA

Berikut adalah VBA yang dapat menghapus baris yang berisi karakter non-Inggris di Excel.

1. Aktifkan lembar kerja yang berisi karakter yang ingin Anda hapus, dan tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul, dan tempelkan kode di bawah ini ke Modul.

VBA: Hapus karakter non-Inggris

Sub RemoveNonEnglish()
'UpdatebyExtendoffice20171204
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim xRows As Long
    Dim xAsc As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    For I = 1 To xRows
        Set xCell = xRg.Offset(I - 1)
        If xCell.Value <> "" Then
            For J = 1 To Len(xCell.Value)
                xAsc = Asc(UCase(Mid(xCell.Value, J, 1)))
                If xAsc < 65 Or xAsc > 90 Then
                    xCell.EntireRow.Delete
                    I = I - 1
                    Exit For
                End If
            Next
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "Completed...", vbInformation
End Sub

3. tekan F5 kunci untuk memilih daftar kolom yang ingin Anda gunakan dalam dialog popping.

4. klik OK > OK, dan kemudian baris yang berisi karakter non-Inggris telah dihapus.

Note: VBA ini hanya berfungsi untuk satu kolom.

Hapus karakter non-Inggris dari string dengan Hapus Karakter

Jika Anda ingin menghapus karakter non-Inggris dari string seperti gambar di bawah ini, Anda dapat menerapkan Kutools for Excel'S Hapus Karakter fitur untuk menyelesaikannya dengan cepat.

Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Download Gratis Kutools for Excel Sekarang!)

1. Pilih kisaran yang Anda butuhkan dan klik Kutools > Teks > Hapus Karakter. Lihat tangkapan layar:

2. Memeriksa Non-alfa hanya di Hapus Karakter dialog, Anda dapat melihat hasilnya di Preview pertama.

3. klik Ok, karakter non-bahasa Inggris telah dihapus dari string.

  Demo

Alat Produktivitas Kantor Terbaik

	Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
	Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
	Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
	Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
	Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
	15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Read More ... Download Gratis...

---

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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...