Excelでセルから数値文字を削除するにはどうすればよいですか？

たとえば、ワークシートに「James987den」というような情報が多数含まれている場合、データにはアルファベット文字と数値文字の両方が含まれており、すべてのこのようなデータについてアルファベット文字を保持し、数値文字を削除したいとします。例えば、「James987den」を「Jamesden」に変換します。これに対処するための簡単な方法はありますか？

VBAコードを使用して数値文字を削除する

Kutools for Excelを使用して数値文字を迅速に削除する

 VBAコードを使用して数値文字を削除する

VBAコードに精通している場合、次の手順でこの方法を使用できます：

1. Excelで「開発」＞「Visual Basic」をクリックするか、ショートカットキー（「ALT」+「F11」）を使用してMicrosoft Visual Basic for Applicationsウィンドウをアクティブにし、「挿入」＞「モジュール」をクリックします。

2. 次のコードをモジュールに入力します：

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

4. そして「実行」ボタンをクリックしてコードを適用します。画面にダイアログが表示されるので、数値文字をすべて削除したい範囲を選択できます。スクリーンショットをご覧ください：

5. 「OK」をクリックすると、すべての数値文字が削除されます。

 Kutools for Excelを使用して数値文字を迅速に削除する

「Kutools for Excel」の「文字を削除」ツールは、複数のタイプの文字を削除するための強力なツールです。

「Kutools for Excel」：300以上の便利なExcelアドインがあり、30日間無制限で無料試用可能です。いますぐ入手

ステップ1. 処理したい範囲を選択します。

ステップ2. 「Kutools」＞「テキスト」＞「文字を削除」をクリックし、ダイアログボックスで「数値」をチェックします。スクリーンショットをご覧ください：

ステップ3. 「OK」または「適用」をクリックして、選択した範囲内の数値文字を削除します。