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」をクリックします。 OK ボタンを押します。

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

驚きのツールで2回クリックするだけですべての非英数字文字を削除

通常、セルにカーソルを置き、非英数字文字を1つずつ手動で削除します。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」をクリックします。 Kutools > テキスト > 特定の文字を削除.

2すると、「文字の削除」ダイアログボックスが表示されますので、「非英数字」のみチェックを入れて、「OK」ボタンをクリックします。 文字の削除 ダイアログボックスが表示されますので、 非英数字 オプションのみをチェックし、「OK」ボタンをクリックします。 Ok ボタンを押します。

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