Como remover caracteres não ingleses em uma coluna do Excel?

Por exemplo, aqui está uma lista de nomes que inclui alguns caracteres não ingleses. Como você pode remover rapidamente as células que contêm caracteres não ingleses no Excel?

Remover linhas contendo caracteres não ingleses usando VBA

Remover caracteres não ingleses de sequências usando Kutools para Excel

Remover linhas contendo caracteres não ingleses usando VBA

Aqui está um código VBA que pode remover as linhas que contêm caracteres não ingleses no Excel.

1. Ative a planilha contendo os caracteres que deseja remover e pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código abaixo no Módulo.

VBA: Remover caracteres não ingleses

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. Pressione F5 para selecionar a lista de colunas que deseja usar na caixa de diálogo que aparece.

4. Clique OK > OK, e então as linhas contendo caracteres não ingleses serão removidas.

Observação: este VBA funciona apenas para uma coluna.

Remover caracteres não ingleses de sequências usando Kutools para Excel

Se você quiser remover caracteres não ingleses de sequências, como mostrado na captura de tela abaixo, pode aplicar o recurso Remover Caracteres do Kutools para Excel para finalizar rapidamente.

1. Selecione o intervalo necessário e clique Kutools > Texto > Remover Caracteres. Veja a captura de tela:

2. Marque Caracteres Não Alfabéticos apenas no Remover Caracteres diálogo, você pode ver o resultado na Visualização primeiro.

3. Clique Ok, os caracteres não ingleses foram removidos das sequências.

Demonstração: Remover caracteres não ingleses de sequências usando Kutools para Excel