Làm cách nào để xóa các ký tự không phải tiếng Anh trong cột Excel?
Ví dụ: , đây là danh sách các tên bao gồm một số ký tự không phải tiếng Anh. Làm cách nào để bạn có thể nhanh chóng loại bỏ các ô chứa các ký tự không phải tiếng Anh trong Excel?
Xóa các hàng có chứa các ký tự không phải tiếng Anh bằng VBA
Xóa các ký tự không phải tiếng Anh khỏi chuỗi bằng cách Xóa các ký tự
Xóa các hàng chứa các ký tự không phải tiếng Anh bằng VBA
Đây là một VBA có thể loại bỏ các hàng có chứa các ký tự không phải tiếng Anh trong Excel.
1. Kích hoạt trang tính có chứa các ký tự bạn muốn xóa và nhấn Alt + F11 các phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đunvà dán mã bên dưới vào Mô-đun.
VBA: Xóa các ký tự không phải tiếng Anh
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. nhấn F5 để chọn danh sách cột bạn muốn sử dụng trong hộp thoại bật lên.
4. nhấp chuột OK > OK, và sau đó các hàng chứa các ký tự không phải tiếng Anh đã bị loại bỏ.
Chú thích: VBA này chỉ hoạt động cho một cột.
Xóa các ký tự không phải tiếng Anh khỏi chuỗi bằng cách Xóa các ký tự
Nếu bạn muốn xóa các ký tự không phải tiếng Anh khỏi chuỗi như hình minh họa bên dưới, bạn có thể áp dụng Kutools cho Excel'S Xóa ký tự để nhanh chóng hoàn thành nó.
Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. |
Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:(Tải xuống miễn phí Kutools cho Excel ngay!)
1. Chọn phạm vi bạn cần và nhấp vào Kutools > bản văn > Xóa ký tự. Xem ảnh chụp màn hình:
2. kiểm tra Không phải alpha chỉ trong Xóa ký tự , bạn có thể thấy kết quả trong Xem trước đầu tiên.
3. nhấp chuột Ok, các ký tự không phải tiếng Anh đã bị xóa khỏi chuỗi.
Demo
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!