¿Cómo eliminar caracteres no ingleses en una columna de Excel?

Por ejemplo, aquí hay una lista de nombres que incluyen algunos caracteres no ingleses. ¿Cómo puedes eliminar rápidamente las celdas que contienen caracteres no ingleses en Excel?

Eliminar filas que contienen caracteres no ingleses mediante VBA

Eliminar caracteres no ingleses de cadenas usando Kutools para Excel

Eliminar filas que contienen caracteres no ingleses mediante VBA

Aquí hay un código VBA que puede eliminar las filas que contienen caracteres no ingleses en Excel.

1. Activa la hoja de cálculo que contiene los caracteres que deseas eliminar y presiona las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en el Módulo.

VBA: Eliminar caracteres no 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. Presiona F5 para seleccionar la columna que deseas usar en el cuadro de diálogo emergente.

4. Haz clic en Aceptar > Aceptar, y luego se habrán eliminado las filas que contienen caracteres no ingleses.

Nota: este VBA solo funciona para una columna.

Eliminar caracteres no ingleses de cadenas usando Kutools para Excel

Si deseas eliminar caracteres no ingleses de una cadena como se muestra en la captura de pantalla a continuación, puedes aplicar la función Eliminar caracteres de Kutools para Excel para completarlo rápidamente.

1. Selecciona el rango que necesitas y haz clic en Kutools > Texto > Eliminar caracteres específicos. Ver captura de pantalla:

2. Marca Caracteres no alfabéticos solo en el Eliminar caracteres específicos cuadro de diálogo, puedes ver el resultado en la Vista previa primero.

3. Haz clic en Aceptar, los caracteres no ingleses han sido eliminados de las cadenas.

Demostración: Eliminar caracteres no ingleses de cadenas usando Kutools para Excel