Jak odstranit neanglické znaky ve sloupci aplikace Excel?

Například ， zde je seznam jmen, který obsahuje některé neanglické znaky. Jak můžete rychle odstranit buňky obsahující neanglické znaky v aplikaci Excel?

Odstraňte řádky obsahující neanglické znaky pomocí VBA

Odebrat neanglické znaky z řetězce odstraněním znaků

Odstranit řádky obsahují neanglické znaky podle VBA

Zde je VBA, který může odstranit řádky, které obsahují neanglické znaky v aplikaci Excel.

1. Aktivujte list obsahující znaky, které chcete odebrat, a stiskněte Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte níže uvedený kód do Modul.

VBA: Odstraňte neanglické znaky

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. lis F5 v rozbalovacím dialogovém okně vyberte seznam sloupců, které chcete použít.

4. cvaknutí OK > OKa poté byly odstraněny řádky obsahující neanglické znaky.

Pozor: tento VBA funguje pouze pro jeden sloupec.

Odebrat neanglické znaky z řetězce odstraněním znaků

Pokud chcete z řetězce odstranit neanglické znaky, jak je ukázáno níže, můžete použít Kutools pro ExcelJe Odebrat znaky funkci rychle dokončit.

Po instalaci Kutools pro Excel, prosím, postupujte takto:（Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte požadovaný rozsah a klikněte Kutools > Text > Odebrat znaky. Viz snímek obrazovky:

2. Kontrola Ne-alfa pouze v Odebrat znaky V dialogu můžete vidět výsledek v Náhled .

3. cvaknutí Ok, neanglické znaky byly odstraněny z řetězců.

  Demonstrace