Как да премахнете неанглийски знаци в колона на Excel?
Например, ,ето списък с имена, които включват някои неанглийски знаци. Как можете бързо да премахнете клетките, които съдържат неанглийски знаци в Excel?
Премахване на редове, съдържащи неанглийски знаци чрез VBA
Премахнете неанглийски знаци от низ чрез Премахване на знаци
Премахнете редовете, които съдържат неанглийски знаци от VBA
Ето VBA, който може да премахне редовете, които съдържат неанглийски знаци в Excel.
1. Активирайте работния лист, съдържащ знаците, които искате да премахнете, и натиснете Alt + F11 клавиши за активиране на Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии поставете кода по-долу към Модули.
VBA: Премахване на неанглийски знаци
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. Натиснете F5 клавиш, за да изберете списъка с колони, който искате да използвате, в изскачащия диалогов прозорец.
4. кликване OK > OK, а след това редовете, съдържащи неанглийски знаци, са премахнати.
Забележка: този VBA работи само за една колона.
Премахнете неанглийски знаци от низ чрез Премахване на знаци
Ако искате да премахнете неанглийски знаци от низ, както е показано на екранната снимка по-долу, можете да кандидатствате Kutools за ExcelЕ Премахване на символи функция за бързо завършване.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)
1. Изберете диапазона, от който се нуждаете, и щракнете Kutools > Текст > Премахване на символи. Вижте екранна снимка:
2. Проверка Не-алфа само в Премахване на символи можете да видите резултата в Предварителен преглед на първо място.
3. кликване Ok, неанглийските символи са премахнати от низовете.
Демонстрация
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!