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

Excelの範囲からすべての英字を削除する必要があるとすると、たとえば、セル内のXNUMXつのデータは「ルカセ 13654698745」、そしてあなたはそれを「13654698745」、セルからすべての英字をすばやく削除するにはどうすればよいですか？ この問題に対処するための良いアイデアはありますか？

VBAコードを使用してセルからすべての英字を削除します

ワンクリックでKutoolsforExcelですべての英字を削除するには

VBAコードを使用してセルからすべての英字を削除します

Excelの関数を使用して英字を削除することは難しいため、VBAコードを使用して解決できます。 次の手順で、VBAを使用してすべての英字を削除できます。

1。 クリック Developer>ビジュアルベーシック またはプレス Alt + F11 新しいを開くには アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット > モジュール、次のコードを入力します。

VBA：英字を削除します：

Sub RemoveAlphas()
'Updateby20131129
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 = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3。 次に、をクリックします  ボタンを押してコードを実行します。 また、ポップアップダイアログでは、機能する範囲を選択できます。スクリーンショットを参照してください。

.

4。 クリック OK、およびすべての英字が削除されました。

ワンクリックでKutoolsforExcelですべての英字を削除します。

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

クリックしてこのユーティリティを適用してください クツール > テキスト > 文字を削除する、スクリーンショットを参照してください：

手順1.使用する範囲を選択します。

ステップ2。 クリック クツール > 編集グループのテキストツール > 文字を削除する、ポップアップでAlphaを確認します 文字を削除する ダイアログ、スクリーンショットを参照してください：

ステップ3。 クリック Ok or 申し込む 範囲内のすべてのアルファを削除します。

このユーティリティは、数字、非数字、非印刷文字などを削除することもできます。

詳細については、 文字を削除する Kutools for Excelについては、以下をご覧ください。 文字を削除する.

関連記事：

セルから数字以外の文字を削除する

セルから数字を削除する

印刷できない文字をセルから削除する

セルから非英字を削除する

英数字以外の文字を削除する