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 untuk Excel'S Hapus Karakter fitur untuk menyelesaikannya dengan cepat.
 |
|
 |
| Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:（Unduh Gratis Kutools untuk 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
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!
