Как удалить неанглийские символы в столбце Excel?

Например, вот список имен, который включает некоторые неанглийские символы. Как можно быстро удалить ячейки, содержащие неанглийские символы в Excel?

Удаление строк, содержащих неанглийские символы, с помощью VBA

Удаление неанглийских символов из строк с использованием Kutools для Excel

Удаление строк, содержащих неанглийские символы, с помощью VBA

Вот VBA-код, который может удалить строки, содержащие неанглийские символы в Excel.

1. Активируйте рабочий лист, содержащий символы, которые вы хотите удалить, и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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, чтобы быстро выполнить эту задачу.

1. Выберите диапазон, который вам нужен, и нажмите Kutools > Текст > Удалить символы. См. скриншот:

2. Отметьте Небуквенные символы только в Удалить символы диалоговом окне, вы можете увидеть результат в Предварительный просмотр сразу.

3. Нажмите Okи неанглийские символы будут удалены из строк.

Демонстрация: Удаление неанглийских символов из строк с использованием Kutools для Excel