Excel でテキスト文字列から n 番目の単語を抽出する方法

テキスト文字列や文章のリストがあり、下のスクリーンショットのようにリストから特定の n 番目の単語を抽出したい場合、この記事ではExcel でその作業を効率的にこなすためのいくつかの方法をご紹介します。

• 数式を使用してテキスト文字列から n 番目の単語を抽出して取得する方法
• ユーザー定義関数を使用してテキスト文字列から n 番目の単語を抽出して取得する方法
• 強力な機能を使用してテキスト文字列から n 番目の単語を抽出して取得する方法

数式を使用してテキスト文字列から n 番目の単語を抽出して取得する方法

このタスクを処理するには、TRIM 関数、MID 関数、SUBSTITUTE 関数、REPT 関数、および LEN 関数を組み合わせた数式が活用できます。一般的な構文は次のとおりです。

• string：単語を抽出したいテキスト文字列またはセルの値。
• N：抽出したい単語の番号。

1．以下の数式を空白セルにコピー＆ペーストするか、直接入力してください。

注：上記の数式において、A2は対象となるテキスト文字列を含むセル、B2は抽出したい単語の位置（番号）を示しており、この値は数値として直接入力することも可能です。

2．次に、フィルハンドルを下方向にドラッグしてこの数式を他のセルに適用すると、下のスクリーンショットのように、指定されたすべての n 番目の単語が抽出されます。

数式の説明：

• 1．SUBSTITUTE(A2,「 」,REPT(「 」,LEN(A2))):
• REPT(「 」,LEN(A2))：この REPT 関数は、セル A2 のテキストの文字数に応じてスペースを繰り返し、複数のスペースを生成します。
• SUBSTITUTE(A2,「 」,REPT(「 」,LEN(A2)))：SUBSTITUTE 関数は、セル A2 内の各スペースを、REPT 関数が生成する大量のスペースに置き換え、単語間に複数のスペースを含むテキスト文字列を作成します。
• この部分は、MID 関数の text 引数として再構成されます。
• 2．(B2-1)*LEN(A2)+1：この数式は、セル A2 のテキスト文字列から n 番目の単語の開始位置を返します。これは MID 関数の start_num 引数として使用されます。
• 3．MID(SUBSTITUTE(A2,「 」,REPT(「 」,LEN(A2))), (B2-1)*LEN(A2)+1, LEN(A2))：この MID 関数は、上記の数式で返された引数に基づき、セル A2 のテキスト文字列から n 番目の単語を抽出します。
• 4．TRIM():この TRIM 関数は、単語間の余分なスペースをすべて削除します。

ユーザー定義関数を使用してテキスト文字列から n 番目の単語を抽出して取得する方法

上記の数式が少し分かりにくいと感じられる場合は、ユーザー定義関数をご紹介します。以下のコードを使えば、テキスト文字列から n 番目の単語を簡単に抽出できます。手順は次のとおりです。

1．ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．挿入>モジュールをクリックし、モジュールウィンドウに以下のコードをコピー＆ペーストしてください。

Function FindWord(Source As String, Position As Integer)
'Update by Extendoffice
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

3．その後、保存して閉じるコードモジュールを閉じて、次の数式を結果を出力したい空白セルに入力します：=findword(A2,B2)

注：この数式では、A2は使用したいテキスト文字列が入力されたセルを指し、B2は抽出したい単語の番号です。この番号はセル参照の代わりに、直接数値として入力することも可能です。

4．その後、必要に応じてこの数式を他のセルにドラッグし、結果を取得します（スクリーンショット参照）。

強力な機能を使用してテキスト文字列から n 番目の単語を抽出して取得する方法

関連する関数：

関連記事：