Как удалить неанглийские символы в столбце 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 for ExcelАвтора Удалить символы функция, чтобы быстро закончить это.
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, сделайте следующее:(Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Выберите нужный диапазон и нажмите Кутулс > Текст > Удалить символы. Смотрите скриншот:
2. Проверьте Не альфа только в Удалить символы диалог, вы можете увидеть результат в предварительный просмотр первый.
3. Нажмите Ok, неанглийские символы были удалены из строк.
Демо
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!