Hoe verwijdert u niet-Engelse tekens in een Excel-kolom?

Bijvoorbeeld, hier is een lijst met namen die enkele niet-Engelse tekens bevatten. Hoe kunt u snel de cellen die niet-Engelse tekens bevatten in Excel verwijderen?

Verwijder rijen met niet-Engelse tekens via VBA

Verwijder niet-Engelse tekens uit strings met behulp van Kutools voor Excel

Verwijder rijen met niet-Engelse tekens via VBA

Hier is een VBA-code waarmee u de rijen kunt verwijderen die niet-Engelse tekens bevatten in Excel.

1. Activeer het werkblad dat de tekens bevat die u wilt verwijderen, en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak onderstaande code in de Module.

VBA: Verwijder niet-Engelse tekens

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. Druk op F5 om de kolommenlijst te selecteren die u wilt gebruiken in het pop-updialoogvenster.

4. Klik op OK > OK, en vervolgens zijn de rijen met niet-Engelse tekens verwijderd.

Opmerking: deze VBA werkt alleen voor één kolom.

Verwijder niet-Engelse tekens uit strings met behulp van Kutools voor Excel

Als u niet-Engelse tekens uit een string wilt verwijderen zoals in onderstaande schermafbeelding wordt getoond, kunt u de functie Specifieke tekens verwijderen van Kutools voor Excel toepassen om dit snel af te ronden.

1. Selecteer het bereik dat u nodig hebt en klik op Kutools > Tekst > Specifieke tekens verwijderen. Zie schermafbeelding:

2. Vink aan Niet-alfabetische tekens alleen in het Specifieke tekens verwijderen dialoogvenster, u kunt het resultaat zien in het Voorbeeld eerst.

3. Klik op Ok, de niet-Engelse tekens zijn verwijderd uit de strings.

Demo: Verwijder niet-Engelse tekens uit strings met behulp van Kutools voor Excel