如何在 Excel 中提取所有部分匹配项？

如果你想从一列中提取所有包含特定关键字的匹配项，并将它们列在一列或一个由分隔符分隔的单元格中，如下图所示，你如何在 Excel 中解决这个任务？

使用公式垂直提取所有部分匹配项

使用用户定义函数将所有部分匹配项提取到单个单元格中

---

使用公式垂直提取所有部分匹配项

要基于部分文本在列中垂直提取所有匹配项，以下数组公式可以帮到您：

Step1：请将以下公式复制并粘贴到要放置结果的空白单元格中：

备注：在以上公式中， A2：A14 是单元格可能包含您要从中返回匹配项的关键字， C2 包含关键词， E1 是公式上方的单元格。

Step2：然后按 Ctrl + Shift + Enter 同时按键得到第一个结果，然后向下拖动填充柄得到所有匹配，直到出现错误值。 最后，删除错误值，看截图：

---

使用用户定义函数将所有部分匹配项提取到单个单元格中

如果您需要将所有匹配项提取到一个单元格中并用特定的分隔符分隔，也许没有公式可以解决它。 在这里，您需要应用以下用户定义函数：

Step1： 按 Alt + F11键 键打开 Microsoft Visual Basic应用程序 窗口。

Step2： 在里面 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块，然后将以下代码复制到模块中。

VBA 代码：将所有部分匹配项提取到单个单元格中

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)，然后按 输入 得到结果的关键如下图所示：