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

例えば、ここに非英語の文字を含む名前のリストがあります。Excelで非英語の文字を含むセルを迅速に削除するにはどうすればよいですか？

VBAを使用して非英語の文字を含む行を削除する

Kutools for Excelを使用して文字列から非英語の文字を削除する

VBAを使用して非英語の文字を含む行を削除する

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

1. 削除したい文字が含まれているワークシートをアクティブにし、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを有効にします。

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すると、非英語の文字を含む行が削除されます。

注: このVBAは1つの列にのみ適用されます。

Kutools for Excelを使用して文字列から非英語の文字を削除する

下のスクリーンショットに示すように、文字列から非英語の文字を削除したい場合は、Kutools for Excelの特定の文字を削除機能を使用して迅速に完了できます。

1. 必要な範囲を選択し、クリック Kutools > テキスト > 特定の文字を削除スクリーンショットをご覧ください：

2. チェック 非アルファベット文字 のみを 特定の文字を削除 ダイアログで、結果を プレビュー で確認できます。

3. クリック OKすると、文字列から非英語の文字が削除されます。

デモ： Kutools for Excelを使用して文字列から非英語の文字を削除する