Excel列の英語以外の文字を削除するにはどうすればよいですか？

たとえば、英語以外の文字を含む名前のリストを次に示します。 Excelで英語以外の文字を含むセルをすばやく削除するにはどうすればよいですか？

英語以外の文字を含む行をVBAで削除する

文字の削除により、文字列から英語以外の文字を削除します

VBAによる英語以外の文字を含む行の削除

これは、Excelで英語以外の文字を含む行を削除できるVBAです。

1.削除する文字を含むワークシートをアクティブにして、を押します Altキー+ F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。

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、その後、英語以外の文字を含む行が削除されました。

Note：このVBAはXNUMXつの列でのみ機能します。

文字の削除により、文字列から英語以外の文字を削除します

以下のスクリーンショットのように文字列から英語以外の文字を削除したい場合は、適用できます Kutools for Excelさん 文字を削除する すばやく終了する機能。

インストールした後 Kutools for Excel、以下のようにしてください：（今すぐExcel用のKutoolsを無料でダウンロードしてください！）

1.必要な範囲を選択し、をクリックします クツール > テキスト > 文字を削除する。 スクリーンショットを参照してください：

2。 チェック 非アルファ 唯一の 文字を削除する ダイアログでは、結果をで見ることができます プレビュー 最初。

3。 クリック Ok、英語以外の文字は文字列から削除されました。

  デモ