次の短いVBAコードを使用すると、英数字以外の文字も削除できます。 あなたはこれをすることができます：

1。 押す 他の + F11 一緒に鍵を開いて アプリケーション用のMicrosoftVisual Basic 窓。

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回クリックすると、すばらしいツールで英数字以外の文字がすべて削除されます

一般的には、セルにカーソルを置いて、英数字以外の文字を1つずつ手動で削除します。VBAやユーザー定義関数に精通している場合は、コード化して英数字以外の文字を一括で削除できます。しかし、ここでは素晴らしいツールをお勧めします。 文字を削除する の特徴 Kutools for Excel、たった2回のクリックであらゆる種類の文字を削除できます。

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

1。 押す 他の + F11 一緒に鍵を開いて アプリケーション用のMicrosoftVisual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次に以下のコードをモジュールに貼り付けます。

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

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）、次にオートフィルハンドルのダウンロードをドラッグして、この数式を他のセルに適用します。

上記のXNUMXつの方法では、コードを知っている必要がありますが、Excelの初心者として、私たちのほとんどはコードを使用できないため、ここでは簡単な方法を紹介します。

Kutools for Excel-Excel用の300以上の便利なツールが含まれています。 30日間のフル機能の無料トライアル、クレジットカードは必要ありません！ 今すぐ入手

Kutools for Excelをインストールしている場合は、次の手順でインストールしてください。

1。 英数字以外の文字を削除する必要がある範囲を選択し、をクリックします クツール > テキスト > 文字を削除する.

2。 次に、 文字を削除する ダイアログボックスが表示されます。チェックするだけです 非英数字 オプションをクリックし、 Ok

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