Excelですべての部分一致を抽出する方法は?

列から特定のキーワードを含むすべての一致を抽出し、列または下のスクリーンショットに示すように区切り記号で区切られたセルにリストする場合、Excel でこのタスクをどのように解決できますか?

数式ですべての部分一致を垂直方向に抽出する

ユーザー定義関数を使用してすべての部分一致を単一のセルに抽出する

数式ですべての部分一致を垂直方向に抽出する

部分的なテキストに基づいて列内のすべての一致を垂直方向に抽出するには、次の配列数式を使用すると便利です。

Step1: 以下の数式をコピーして、結果を入力する空白のセルに貼り付けてください。

Note：上記の式では、 A2：A14 セルには、一致を返したいキーワードが含まれている可能性があります。 C2 というキーワードが含まれており、 E1 数式の上のセルです。

Step2：次に、 Ctrl + Shift + Enter キーを同時に押して最初の結果を取得し、フィル ハンドルを下にドラッグして、エラー値が表示されるまですべての一致を取得します。 最後に、エラー値を削除します。スクリーンショットを参照してください。

ユーザー定義関数を使用してすべての部分一致を単一のセルに抽出する

すべての一致を単一のセルに抽出し、特定の区切り記号で区切る必要がある場合、それを解決できる数式がない可能性があります。 ここでは、以下のユーザー定義関数を適用する必要があります。

Step1： 押す Altキー+ F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

Step2： の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に次のコードをモジュールにコピーします。

VBA コード: すべての部分一致を XNUMX つのセルに抽出する

Function ExtractPartMatch(rngInput As Range, rngSource As Range, Optional sDelimiter As String)
'Updateby ExtendOffice
Dim rng As Range
If sDelimiter = "" Then sDelimiter = ", "
For Each rng In rngSource
    If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ExtractPartMatch = ExtractPartMatch & sDelimiter & rng.Value
Next
If Len(ExtractPartMatch) > 0 Then ExtractPartMatch = Mid(ExtractPartMatch, 2, Len(ExtractPartMatch))
End Function

Step3: コードを貼り付けた後、結果を表示するワークシートに戻り、次の式を入力してください。 =ExtractPartMatch(C2,$A$2:$A$14)を押します。 入力します 以下のスクリーンショットのように結果を取得するためのキー：