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

次の短い VBA コードを使えば、英数字以外の文字も簡単に削除できます。以下の手順に従って操作してください。

1。「Alt+F11」キーを同時に押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2。「挿入」＞「モジュール」をクリックし、下記の VBA コードをモジュールに貼り付けます。

VBA：英数字以外のすべての文字を削除する

Sub RemoveNotAlphasNotNum()
'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.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3。「F5」キーを押すか、「実行」ボタンをクリックして、コードを実行しましょう。

4。 表示されたダイアログボックスで、英数字以外の文字を削除したい範囲を選択して、「OK」ボタンをクリックしてください。

これで、「範囲を選択してください」から英数字以外のすべての文字が削除されました。スクリーンショットをご確認ください。

2 回のクリックで、便利なツールを使って英数字以外のすべての文字を削除

通常、セルにカーソルを置いて、英数字以外の文字を手作業で一つずつ削除する必要があります。VBA やユーザー定義関数に慣れている方なら、コードを書いて一括で英数字以外のすべての文字を削除することも可能です。しかし、ここでぜひおすすめしたいのは、驚くほど便利なツール——特定の文字を削除機能（)Kutools for Excelに含まれる）です。この機能を使えば、あらゆる種類の不要な文字をわずか2 回のクリックでサッと削除できます！

Excel では、セルから英数字以外のすべての文字を削除するカスタム関数を定義することも可能です。

1。「Alt+F11」キーを同時に押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2。「挿入 > モジュール」をクリックして、次のコードをモジュールに貼り付けてください。

ユーザー定義関数：英数字以外のすべての文字を削除する

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3。ワークシートに戻り、空白セルを選択して数式 =DeleteNonAlphaNumeric(B3)を入力し、オートフィルハンドルを下にドラッグして他のセルにも適用します。

上記の2 つの方法はコードを知っておく必要がありますが、Excel 初心者の多くはコードを扱いこなせません。そこで、ここでは誰でも簡単に実行できる方法をご紹介します。

Kutools for Excelには、Excel 用の便利なツールが300 種類以上！30 日間のフル機能無料トライアルを、クレジットカード不要でお試しください。今すぐ入手

Kutools for Excel がすでにインストール済みの場合は、次の手順に従って操作してください。

1。 英数字以外の文字を削除したい範囲を選択し、Kutools > テキスト > 特定の文字を削除をクリックします。

2。「文字の削除」ダイアログボックスが表示されたら、「英数字以外」オプションのみをチェックして、「OK」ボタンをクリックします。

これで、テキスト文字列から英数字以外の文字がすべて削除されました。