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

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

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

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

このタスクに対処するために、TRIM、MID、SUBSTITUTE、REPT、LEN関数を組み合わせた数式を使用できます。汎用的な構文は次の通りです：

• 文字列: 単語を抽出したいテキスト文字列またはセルの値です。
• 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番目の単語を抽出・取得する

関連する関数：

その他の記事：