Excel で文字列内の最初の数値、またはすべての数値を抽出するにはどうすればよいですか？

この方法では、テキスト文字列に含まれる最初の数値を検索・抽出するだけでなく、その最初の数値がセル内のどの位置にあるかを正確に特定できる一連の数式をご紹介します。これらの数式は、製品コードや説明文など、数値の位置が可変な標準化された文字列を分析したいユーザーにとって特に役立ちます。

配列数式でテキスト文字列内の最初の数値を検索・抽出する

テキスト文字列から最初の数値を抽出するには、空白セルを選択し、次の数式を入力します：=MID(A2,MIN(IF((ISNUMBER(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)+0)*ROW(INDIRECT("1:"&LEN(A2)))),ISNUMBER(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)+0)*ROW(INDIRECT("1:"&LEN(A2))))),1)+0（A2 は最初の数値を検索するテキストが入力されているセル）。その後、Ctrl+Shift+Enterを同時に押して配列数式として確定してください。これにより、数式が文字列内の各文字を個別に処理します。
確定後、必要に応じてセルのフィルハンドルを下にドラッグして、他の行にもこの数式を適用できます。

適用後、各テキスト文字列の先頭にある数値が次のように検索・抽出されます。

数式でテキスト文字列内の最初の数値の位置を検索する

最初に、数値が現れる位置を返すために空白セルを選択し、次の数式を入力してください。=MIN(IF(ISNUMBER(FIND({1,2,3,4,5,6,7,8,9,0},A2)),FIND({1,2,3,4,5,6,7,8,9,0},A2)))（ここで A2 はチェック対象のセルを表します）。この数式は、任意の数字（0～9）のうち最も早く出現する位置を検出します。必要に応じて、数式を下方向にドラッグして隣接セルにコピーしてください。

注：代わりに、次の配列数式を使用することもできます。=MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&{0,1,2,3,4,5,6,7,8,9}))。この場合も、Ctrl+Shift+Enterで確定してください。数式をコピーする際は、構造が変更された場合に固定セル参照を適宜更新してください。文字列に数値が含まれていない場合、これらの数式はエラーを返します。このようなケースでは、IFERROR 関数で数式を囲み、カスタムメッセージを表示できます。

セルから非数値文字をすべて取り除いて数値だけを抽出したいなら、Kutools for Excel の特定の文字を削除機能がぴったりの解決策です。この機能は、インポートしたデータを頻繁に処理する方や、複雑な数式よりもシンプルな操作で一括してセルをクリーニングしたい方に特におすすめです。

1。すべての数値を抽出したい範囲を選択し、次のメニューに移動します。Kutools>テキスト>特定の文字を削除。以下のスクリーンショットを参考にしてください。

2。表示される特定の文字を削除ダイアログボックスで、非数値チェックボックスのみをオンにしてから、OKをクリックして続行します。

この操作により、選択したセルから非数値文字がすべて削除され、数値部分のみが残ります。

この操作を実行する前に、万一に備えて対象範囲のバックアップを作成することをおすすめします。文字と数値が混在する文字列（例：「A23B17」）では、すべての数値が連結され、「2317」のように表示されます。異なる形式をご希望の場合は、この機能を他の関数と組み合わせてご活用ください。

テキストセル内のすべての数値（形式を問わず）を単一の値として直接抽出したい場合は、Kutools for Excel のEXTRACTNUMBERS 関数が、使いやすく非常に効率的な解決策を提供します。特に、バッチ処理が必要で、ワークシート全体に柔軟に適用できる関数ベースの手法を求めるユーザーに最適です。

1。抽出した数値を表示したい空白セルを選択し、次に進みます。Kutools>関数>テキスト>EXTRACTNUMBERS。以下の図をご参照ください。

2。表示される関数の引数ダイアログボックスで、関連するテキストセルをTxtフィールドに指定し、数値として返すためにNフィールドにTRUEを入力します。その後、OKをクリックして確定すると、数値が抽出されます。

注：
（1）TRUEまたはFALSEを入力するか、Nフィールドを空白のままにしておくこともできます。TRUEを指定すると数値が返され、FALSEまたは空白の場合は数値がテキストとして返されます（先頭のゼロを保持したい場合に便利です）。
（2）この機能はワークシート内で直接数式としても使用できます。=EXTRACTNUMBERS(A2,TRUE)を希望する出力セルに入力してください。
（3）数式を隣接する行にコピーする際は、必要に応じてセル参照を調整してください。

各テキストセルから抽出された数値は、次のように表示されます。

数式や組み込み機能だけでは対応できないケース（たとえば、文字列から)最初の数値、最初の連続した数値列、またはすべての個別の数値を抽出したい場合）には、VBA コードを使うことで、より柔軟で自動化された処理が実現できます。この方法は、大規模なデータセットに対して独自の抽出要件を定期的に処理する方や、再利用可能なマクロで作業を自動化したい方に特におすすめです。マクロを有効にする必要がある点にご注意ください。また、大規模なデータセットに対してコードを実行する前に、必ずファイルのバックアップを取っておきましょう。

1。Excel のメインウィンドウで、開発者タブ＞Visual Basicをクリックして VBA エディターを開きます。Microsoft Visual Basic for Applicationsウィンドウで、挿入＞標準モジュールを選択し、新しいモジュールに以下のコードをコピー＆ペーストしてください。

最初の数値を抽出：各文字列で見つかった最初の連続する数値のみを抽出します（例：「abc12def45」→12）。

Sub ExtractFirstNumber()
    Dim rng As Range
    Dim cell As Range
    Dim txt As String
    Dim i As Integer
    Dim sNum As String
    Dim FirstNum As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select range", xTitleId, rng.Address, Type:=8)
    
    For Each cell In rng
        txt = cell.Value
        sNum = ""
        FirstNum = ""
        
        For i = 1 To Len(txt)
            If Mid(txt, i, 1) Like "[0-9]" Then
                sNum = sNum & Mid(txt, i, 1)
                
                If i = Len(txt) Or Not (Mid(txt, i + 1, 1) Like "[0-9]") Then
                    FirstNum = sNum
                    Exit For
                End If
            ElseIf sNum <> "" Then
                FirstNum = sNum
                Exit For
            End If
        Next i
        
        cell.Offset(0, 1).Value = FirstNum
    Next cell
End Sub

すべての数値を抽出：文字列に含まれるすべての数値を順番に抽出し、個別の数値ブロックをスペースで区切って表示します（例：「abc12def45」→「12 45」）。

Sub ExtractAllNumbers()
    Dim rng As Range
    Dim cell As Range
    Dim txt As String
    Dim i As Integer
    Dim arrNums As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select range", xTitleId, rng.Address, Type:=8)
    
    For Each cell In rng
        txt = cell.Value
        arrNums = ""
        
        For i = 1 To Len(txt)
            If Mid(txt, i, 1) Like "[0-9]" Then
                arrNums = arrNums & Mid(txt, i, 1)
            Else
                If arrNums <> "" Then
                    arrNums = arrNums & " "
                End If
            End If
        Next i
        
        arrNums = WorksheetFunction.Trim(arrNums)
        cell.Offset(0, 1).Value = arrNums
    Next cell
End Sub

2。VBA エディターで、実行ボタンをクリックするか、F5キーを押してコードを実行すると、対象範囲の選択を求められるダイアログボックスが表示されます。このコードは、抽出した数値を元のデータのすぐ右隣の列に書き込みます。

上書きを避けるため、ワークシートの元データのすぐ右隣の列が未使用であることをご確認ください。コードが正しく動作しない場合は、ブック内でマクロが有効になっているか、およびテキスト値に実際に数値が含まれているかをご確認ください。

Excel に標準搭載されているフラッシュフィル機能は、例となるパターンから学習し、テキスト文字列から自動的に数値を抽出できます。この方法は、形式が整ったデータを手早く手動で処理したいときや、複雑なロジックを設定せずにシンプルで数式を使わない解決策を求めている場合に特に役立ちます。

文字列から数値を抽出するためにフラッシュフィルを使用するには：

1. データの隣接する空白列の最初のセルに、目的の出力を手動で入力します。たとえば、A2 に「OrderA12B3」とある場合、抽出結果として B2 に「123」と入力します。
2. 例の下のセル（例：B3）に移動し、次の行で期待される結果の入力を開始してください。Excel が認識したパターンのプレビューを表示する場合があります。プレビューが意図したものと一致する場合は、そのままEnterキーを押すだけで OK です。一致しない場合は、さらにいくつかの入力を追加して、期待されるパターンを明確に示し続けてください。
3. あるいは、最初のセルに例を入力した後、対象のリスト全体が配置されている範囲を選択し、データ>フラッシュフィル（または)Ctrl + Eを押す）に進んでください。Excel は学習したパターンに基づき、自動的に数値を抽出して入力します。

フラッシュフィルは、一貫性のある入力と出力の関係を認識するため、例として入力する内容は明確かつ正確にご指定ください。この機能は、データ形式が規則的な場合に最も効果を発揮します。一方、データ構造が変動的であったり、厳密な制御が必要な場合は、数式やマクロによる解決策をご検討ください。

フラッシュフィルが表示されない場合は、ファイル > オプション > 詳細設定 > 編集オプションで、自動的にフラッシュフィルを実行するにチェックが入っていることをご確認ください。