Excel VBA-用户定义函数-将与数组相关的公式（常规公式上为CTRL + SHIFT + ENTER）转换为UDF

Question

我一直在绕过与我的问题非常相似的几个线程。 但是，有多种解释可能不适用于我的情况。 我有这个“常规” excel公式：

={IF(OR(ISNUMBER(SEARCH($O$2:$O$2000,A2))), INDEX($P$2:$P$2000, MATCH(TRUE, ISNUMBER(SEARCH($O$2:$O$2000, A2)),0)), "")}

我想使用以下参数将其转换为Excel VBA函数

FUNCTION ADVLOOKUP(TAG, SENTENCESTOLOOKAT, WORDSTOLOOKUP)

TAG =表示原始公式中的P列，该列将置于表示SENTENCESTOLOOKAT的每个单元格/行旁边

SENTENCESTOLOOKAT =表示A2或公式要定位的列A上的任何单元格。 这是一个包含WORDSTOLOOKUP中的任何一个的句子

WORDSTOLOOKUP =表示列O，它是每个SENTENCESTOLOOKAT上要检查的要搜索单词的清单

抱歉，我无法发布Excel文件，因为显然我的信誉/代表得分很低。 :(但是，如果您能建议上述Excel公式是否可以转换为UDF，我将不胜感激。

谢谢！

Answer 1

要仅返回一个值，可以使用一个简单的调用来评估：

Function ADVLOOKUP(TAG As Range, SENTENCESTOLOOKAT As Range, WORDSTOLOOKUP As Range)
    ADVLOOKUP = SENTENCESTOLOOKAT.Worksheet.Evaluate("INDEX(INDEX(" & TAG.Address & ",MATCH(TRUE,ISNUMBER(SEARCH(" & _
                    WORDSTOLOOKUP.Address & "," & SENTENCESTOLOOKAT.Address & ")),0)),)")
End Function