我有很长的句子列表,以及我需要在每个句子中识别的一长串单词。
句
杰克和吉尔一起去参加聚会
吉尔喜欢保罗,但他不知道她存在
吉尔和杰克一起去参加派对让保罗嫉妒
吉尔摔倒了,打破了她的王冠
杰克在吉尔之后翻滚,因为他迷恋她。
命名范围词
到
该
党
以及
假设在命名范围内有超过100个单词。
输出
句子词 杰克和吉尔一起去参加聚会。 ,党, 吉尔喜欢保罗,但他不知道她存在 吉尔和杰克一起去参加派对让保罗嫉妒。派对
非常感谢任何帮助!〜
答案 0 :(得分:0)
用户是否定义了这样的功能?
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