Excel-使用命名区域查找找到的单词并将其复制到相邻单元格

我有一长串句子，还有一长串我需要在每个句子中识别的单词

句子
杰克和吉尔一起去参加聚会。
吉尔喜欢保罗，但他不知道她存在。
吉尔和杰克一起去参加聚会，让保罗嫉妒。
吉尔摔倒了，打破了她的王冠。
杰克因为迷恋吉尔而来追她

命名范围词
到

聚会
嗯
假设命名范围内有100多个单词

输出将是

句子和单词 杰克和吉尔一起去参加聚会。致、该方、该方
吉尔喜欢保罗，但他不知道她存在。
吉尔和杰克一起去参加聚会，让保罗吃醋。参加聚会

---

非常感谢您的帮助~

像这样的用户定义函数可以工作吗

Function COMBINETEXT(Sentence_Range As Range, Key_Range As Range)

Dim c As Range
Dim output As String
‘output = Sentence_Range & " "

For Each c In Key_Range.Cells
On Error GoTo errorHandler
        If Application.WorksheetFunction.Search(c.Value, Sentence_Range) > 0 Then output = output & "/" & c.Value
errorHandler:
Next c
output = right(output,len(output) -1) ‘Will get rid of first /
COMBINETEXT = output

End Function

---

请阅读-好的cmac，我读了“如何提问”…这会让你感觉更好吗？我陈述了问题…给出了输入和输出的视觉效果。。。。所以，我不理解你的主要故障。哥们斯科特，非常感谢你的回复。我在上面的结果可视化中没有明确定义的是：“to，the，party”将位于相邻单元格中，而不是组合在同一单元格中。注释掉输出=句子_Range&“”，并在循环后添加一个正确的函数以首先删除/如果这是正确的答案，请标记为已回答，以便其他用户知道它已解决