テキスト文字列から最初のまたは最後の2つまたはn個の単語を抽出するにはどうすればよいですか？

Excelで大量のテキストデータを扱う場合、各セル内の特定の単語（最初のいくつかの単語や最後の単語、特定の位置にある単語など）を抽出する必要がよくあります。一般的なシナリオとしては、複数の単語を持つテキスト入力が含まれるセルから名前、住所、キーワード、ユニークな識別子などを抽出することが挙げられます。特にデータがスペースで区切られている場合にそうです。例えば、文や製品コードが含まれたセルがあり、そこから最初の3つの単語や最後の2つの単語だけを取り出して後続処理に使用したい場合があります。Excelにはこれを行うための直接的な組み込み関数はありませんが、柔軟な単語抽出を実現するための方法は複数あり、それぞれ異なるデータサイズやニーズに適しています。この記事では、最初、最後、またはn番目の単語をExcelのテキスト文字列から効率的に抽出するための数式、実用的なツール、および追加の自動化技術を紹介します。

数式を使用してテキスト文字列から最初の2つまたはn個の単語を抽出する

数式を使用してテキスト文字列から最後の2つまたはn個の単語を抽出する

便利な機能を使用してテキスト文字列から最初またはN番目の単語を抽出する

VBAマクロを使って単語を抽出する（最初、最後、またはN番目の単語）

Power Queryを使用して単語を抽出する（分割と再結合）

数式を使用してテキスト文字列から最初の2つまたはn個の単語を抽出する

セル値から最初のいくつかの単語を抽出するには、以下の数式を使用できます。これは、一貫した単語区切り記号（スペースなど）がある場合に特に役立ちます。例えば、セルから最初の3つの単語を取り出したい場合です。これらの数式は簡単に適用でき、中程度のサイズのデータセットに対してうまく動作し、先頭の任意の数の単語を抽出するために適応させることができます。

次のいずれかの数式を空白のセル（C2など）に入力し、フィルハンドルを下にドラッグして関連するすべての行に数式を適用してください。以下に示すスクリーンショットのように、各テキスト文字列から必要な数の先頭の単語が抽出されます。

数式を使用してテキスト文字列から最後の2つまたはn個の単語を抽出する

テキスト文字列から最後の単語（最後の2つや最後のn個の単語など）を抽出するには、次の数式が役立ちます。この方法は、姓、ファイル拡張子、またはテキストセルの末尾にある識別子などの末尾の単語を一貫して抽出する必要があるデータセットに対して効果的です。

結果を表示したい空白のセルに以下の数式をコピーして貼り付けてください。数式を入力したら、フィルハンドルを下にドラッグして他の行にも適用します。

便利な機能を使用してテキスト文字列から最初またはN番目の単語を抽出する

もしもテキスト文字列から最初の単語や特定の（N番目の）単語を抽出する必要があり、複雑な数式を暗記したり編集したりすることなく解決したい場合、Kutools for Excelを使用できます。セル内のN番目の単語を抽出する機能を使うと、特定の単語位置を簡単に選択でき、時々の使用だけでなく繰り返しの作業にも適しています。このアプローチは、手動での数式入力なしにエラーのリスクを最小限に抑えた迅速でメニュー駆動型のソリューションを求めている場合にお勧めです。

Kutools for Excelをインストールした後は、次のように進めてください：

1. 抽出した結果を表示したいセルを選択します。その後、スクリーンショットに示されているように、Kutools > 関数ヘルパー > 関数ヘルパーに移動します：

2. 関数ヘルパーダイアログで、次のステップを行います：

• 数式タイプのドロップダウンリストから「テキスト」を選択します。
• 数式リストボックスから「セル内のN番目の単語を抽出」を選択します。
• Cellテキストボックスにソースセルを指定し、The Nthテキストボックスに希望する単語位置（例：2なら2番目の単語）を入力します。

3. OKをクリックして結果を返し、同じロジックを残りのリストに適用するためにフィルハンドルを下にドラッグします。図解をご覧ください：

この方法は、抽出要件が頻繁に変わる場合や、毎回カスタム数式を作成する代わりにガイド付きインターフェースを望む場合に適しています。

VBAマクロで単語を抽出する（最初、最後、またはN番目の単語）

大規模または頻繁に更新されるデータセットを処理する場合、VBAマクロは数式のみよりも柔軟性と自動化を提供します。VBAを使用することで、多くのセルを素早く処理できる再利用可能なツールを作成でき、ニーズに基づいて抽出する単語や単語グループをカスタマイズできます。複雑なネストされた数式を避けたい場合や、定期的に同じ方法でテキストを操作する必要がある場合に特に便利です。

典型的なシナリオ：インポートされたテキストの大量抽出、バッチクリーニング、標準化されたレポートの準備。

1. VBAエディターを開くには、Developer > Visual Basic をクリックします。Microsoft Visual Basic for Applicationsウィンドウで、Insert > Moduleを選択し、新しいモジュールに次のコードを貼り付けます：

Sub ExtractWord()
    Dim Rng As Range
    Dim Cell As Range
    Dim WordPos As Integer
    Dim Words() As String
    Dim ExtractedWord As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set Rng = Application.Selection
    Set Rng = Application.InputBox("Select range to extract word from", xTitleId, Rng.Address, Type:=8)
    
    WordPos = Application.InputBox("Enter which word number to extract (1=first,2=second, etc., or -1 for last)", xTitleId, 1, Type:=1)
    
    Application.ScreenUpdating = False
    
    For Each Cell In Rng
        Words = Split(Application.Trim(Cell.Value), " ")
        
        If WordPos = -1 Then
            If UBound(Words) >= 0 Then
                ExtractedWord = Words(UBound(Words))
            Else
                ExtractedWord = ""
            End If
        ElseIf WordPos >= 1 And WordPos <= UBound(Words) + 1 Then
            ExtractedWord = Words(WordPos - 1)
        Else
            ExtractedWord = ""
        End If
        
        Cell.Offset(0, 1).Value = ExtractedWord
    Next Cell
    
    Application.ScreenUpdating = True
    
    MsgBox "Extraction complete! Results placed in the column to the right.", vbInformation, xTitleId
End Sub

2マクロを実行するには、 Runボタンをクリックするか、 F5キーを押しますマクロはデータ範囲を選択することを促し、どの単語位置を抽出するか（例えば、最初の単語なら1、最後の単語なら-1）を尋ね、隣接する右側の列に抽出された単語を配置します。区切り文字がスペースであることを確認するか、必要に応じて Split 他の区切り文字に対応するよう関数を調整してください。

このVBAアプローチは、繰り返しの大規模な抽出を非常に迅速に行い、数式ベースのソリューションが煩雑になる場合に理想的です。注意：常にワークブックを保存してからマクロを実行し、セキュリティ設定でマクロが有効になっていることを確認してください。

Power Queryを使用して単語を抽出する（分割と再結合）

大規模なテーブルや定期的なインポート/エクスポートタスクを管理する場合、Power Queryはテキスト文字列から単語を抽出して操作するための堅牢な代替手段を提供します。Power Queryはデータタブの「データの取得と変換」として見つかり、視覚的にテキストを区切り文字（スペース、カンマなど）で分割し、必要な単語を抽出してからデータを再結合したりExcelに戻したりすることができます。このプロセスは非常に繰り返しやすく、数百または数千の行を扱う場合に大規模なデータクリーニングに適しています。

主な利点：定期的な使用における一貫性、視覚的なインターフェース、単語位置の要件が変わった際に調整が容易。

操作手順：

1. データ範囲を選択し、データ > 表/範囲から を選択してデータをPower Queryに読み込みます。求められた場合は、表を作成/確認します。
2. Power Queryエディターで、テキストのある列を選択します。
3. 列の分割 > 区切り文字で をクリックします。

   

4. スペースを選択するかカスタム区切り文字を入力し、全ての区切り文字の出現箇所で分割を選択してからOKをクリックします。

   

5. テキストの各単語は独自の列（Column1、Column2など）に表示されます。最初の2つの単語を抽出したい場合は、分割された単語を再結合します。対応する列を選択し、ヘッダーを右クリックして、コンテキストメニューから「列の結合」を選択します。

   

6. 好みの区切り文字（スペースやカンマなど）を選択し、OKをクリックします。

   

7. 最後に、「閉じて読み込む」をクリックして結果を現在のワークブックの新しいワークシートに読み込みます。

Power Queryは、基盤となるテーブルが変更された場合でも一貫した結果を得るために、クエリを更新するだけでプロセスを再利用でき、数式やマクロの手動再適用なしに結果を得られます。Power Queryが生成する列数を確認し、短いテキスト文字列で不足している単語を考慮に入れてください。

関連記事：