我感谢您的答复，但我认为我的措辞含糊。让我尝试用图片来解释。
http://postimg.org/image/mrh7okefp/
该公式放在C2中，并将查看A2中的所有单词。然后它将在B2：B9中搜索任何匹配项。如果找到了东西，它将把这个词放到C2中。如果找不到任何内容，则将单元格留空（我忘了在图像中包括它）。然后可以将公式向下拖动到C3，并将搜索相同的B2：B9，将找到的单词放在C3中。等等等等。希望这有助于澄清。
按Alt + F11，将此代码粘贴到一个空模块中，在“工具/参考”中选中“ VBScript正则表达式5.5”复选框，然后在B列中将ExtractColor用作用户定义的函数。它处理带有多个关键字的单元格。
Function ExtractColor(c As String) As String
With CreateObject("VBScript.RegExp")
.ignorecase = True
.Global = True
.Pattern = "(red)|(blue)|(orange)|(green)|(black)|(white)|(purple)|(yellow)|.+?"
Set myMatches = .Execute(c)
If .Test(c) Then ExtractColor = Application.Trim(.Replace(c, "$1 $2 $3 $4 $5 $6 $7 $8"))
End With
End Function
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句