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

Excelユーザーは、文字や記号などの数字と非数値文字が混在したデータをよく扱います。このデータを整理することは、さらなる分析やレポート作成に必要不可欠です。このガイドでは、Excelのセルから非数値文字を削除するための4つの方法を紹介します。これにより、データがクリーンで利用可能になります。

• 数式を使用して（Excel 2021以降）
• Kutools AI アシスタントを使用して （インテリジェント & 効率的）
• 素晴らしいツールを使用して （ワンクリック）
• VBAコードを使用して

Excelのセルから非数値文字を削除する

このセクションでは、異なるExcelバージョンやユーザーのスキルレベルに合わせた、Excelのセルから非数値文字を削除するための4つの効果的な方法を紹介します。

数式を使用してExcelのセルから非数値文字を削除する

Excelのセルから非数値文字を削除するには、TEXTJOIN関数に基づいた数式を使用できます。

ステップ1: セルを選択し、数式を適用する

C2セルに以下の数式を適用し、Enterキーを押して結果を得ます。

=TEXTJOIN("",TRUE,IFERROR(MID(A2,SEQUENCE(LEN(A2)),1)+0,""))+0

ステップ2: 数式を他のセルに適用し、すべての結果を得る

最初の結果を計算した後、数式セル（この例ではC2）のフィルハンドルをドラッグして、数式を他のセルに適用し、C8セルまで拡張します。

Kutools AI アシスタントを使用してExcelのセルから非数値文字を削除する

Kutools for Excelの「AI アシスタント」機能は、複雑な数式を必要とせずに、Excelシートから非数値文字を簡単に削除できる便利さを提供します。シンプルな指示だけで、この強力なツールが自動的に解析を行い、必要なタスクを実行します。これにより、プロセスが高速化され、エラーの可能性も排除され、大幅に生産性と正確性が向上します。「AI アシスタント」は、煩雑になりがちな手動操作をスムーズで効率的なものに変え、ワークフローを最適化したいすべてのExcelユーザーにとって必須のツールです。

Kutools for Excelをダウンロードしてインストールした後、「Kutools AI」>「AI アシスタント」をクリックして「Kutools AI アシスタント」ペインを開きます。

1. 「Kutools AI アシスタント」ペインで、以下のようなテキストをチャットボックスに入力し、送信します。 「送信」ボタンをクリックするか、Enterキーを押してクエリを送信します。

「Excelの範囲A2:A8から非数値文字を削除してください。」

2. ツールが入力を解析したら、「実行」ボタンをクリックします。Kutools AI アシスタントはAI技術を利用してリクエストを処理し、結果を直接Excelに適用します。

ヒント: この機能を使用するには、まずKutools for Excelをインストールする必要があります。今すぐKutools for Excelをダウンロードしてください。

素晴らしいツールを使用してExcelのセルから非数値文字を削除する

指定された範囲全体から非数値文字を削除してデータを効率的にクリーニングするには、Kutools for Excelの「特定の文字を削除」ユーティリティがワンクリックソリューションを提供します。この強力なツールは、しばしば面倒なプロセスを簡素化し、不要な文字を迅速に削除して、よりクリーンで使いやすい結果を即座に得ることができます。

1. 非数値文字を削除したい範囲を選択した後、「Kutools」>「テキスト」>「特定の文字を削除」をクリックします。

2. 「特定の文字を削除」ダイアログボックスで、「非数値」オプションをチェックし、「OK」をクリックします。すると、選択範囲から非数値文字が即座に削除されます。

ヒント: この機能を使用するには、まずKutools for Excelをインストールする必要があります。今すぐKutools for Excelをダウンロードしてください。

VBAコードを使用してExcelのセルから非数値文字を削除する

VBAコードを使用して範囲から非数値文字を削除するには、次の手順に従ってください：

ステップ1: VBAモジュールエディターを開き、コードをコピーする

1. Excelで「ALT + F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。
2. 「挿入」>「モジュール」をクリックし、モジュールウィンドウに以下のコードをコピーして貼り付けます。
3. VBAコード: すべての非数値文字を削除する

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

ステップ2: コードを実行する

1. このコードを貼り付けた後、F5キーを押してコードを実行します。
2. 表示されるKutoolsforExcelダイアログボックスで、非数値文字を削除したい範囲を選択し、「OK」をクリックします。

結果

選択範囲内のすべての非数値文字が削除されました。

関連記事