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

Question

I have been passing by several threads that are quite similar to my problem. However, there are various interpretations which may not be applicable to my case. I have this "regular" excel formula:

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

I wanted to convert this to Excel VBA function with the following parameters

FUNCTION ADVLOOKUP(TAG, SENTENCESTOLOOKAT, WORDSTOLOOKUP)

TAG = represents Column P on the ORIGINAL FORMULA which will be put beside each cell/row representing the SENTENCESTOLOOKAT

SENTENCESTOLOOKAT = represents A2 or any cell on column A to be targeted by the formula. This is a sentence which contains any 1 of the WORDSTOLOOKUP

WORDSTOLOOKUP = represents Column O which is the inventory of words to be searched checked on each of the SENTENCESTOLOOKAT

Sorry, I'm unable to post the Excel file because apparently I have low reputation/rep points. :( But I do appreciate if you can advice whether the said Excel formula can be converted to a UDF.

Thank you!

Answer 1

To only return one value, you could use a simple call to Evaluate:

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