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

たとえば、次のような範囲データがあります ジェイコブ "001" @＃$％、および文字列からすべての非英字を削除して、 ジェイコブ。 Excelで、セルからすべての非英字をすばやく削除するにはどうすればよいですか？

VBAコードを使用してセルから非英字を削除する

Kutools for Excelを使用して、セルから非英字をすばやく削除します

VBAコードを使用してセルから非英字を削除する

VBAコードを使用すると、英字以外の文字を削除して、英字のみを保持できます。 （az） 次の手順としてセルに入力します。

1.すべての非英字を削除する範囲を強調表示します。

2。 クリック Developer > ビジュアルベーシック、新しいMicrosoft Visual Basic for Applicationsウィンドウが表示されたら、をクリックします。 インセット > モジュール、次に次のコードを入力します モジュール:

VBA：セルからすべての非英字を削除します

Sub RemoveNotAlphas()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3.次に、をクリックします  ボタンを押してコードを実行します。 画面にダイアログが表示され、すべての非英字を削除する範囲を選択できます。 スクリーンショットを参照してください：

4。 次に、をクリックします OK、すべての非英字が削除されました。 スクリーンショットを参照してください：

Kutools for Excelを使用して、セルから非英字をすばやく削除します

VBAマクロを使用してすべての非英字を削除したくない場合は、 文字を削除する 以下のためのツール Kutools for Excel.

Kutools for Excel：300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐ入手

インストールした後 Kutools for Excel、セルの範囲からすべての非アルファ文字を簡単かつ快適に削除できます。

1.英字以外の文字を削除する範囲を選択します。

2。 クリック クツール > テキスト > 文字を削除します。

3。 A 文字を削除する ダイアログボックスが表示されます。 次に確認してください 非英字 内のオプション 文字を削除する ダイアログボックス。 同時に、からの結果をプレビューすることができます プレビュー ペイン。 スクリーンショットを参照してください：

4.次に、をクリックします OK or 申し込む。 英字以外の文字はすべて削除されます。

このユーティリティは、数字、非数字、非印刷文字などを削除することもできます。 詳細については 文字を削除する、ご覧ください。 文字の削除機能の説明.

関連記事：

• セルから英字を削除する
• セルから数字以外の文字を削除する
• セルから数字を削除する
• 印刷できない文字をセルから削除する
• 改行をすばやく削除する
• 英数字以外の文字を削除する