Как я могу оптимизировать приведенный ниже код VBA / Excel?

Question

Я пытаюсь сделать несколько vlookup в одной ячейке.Но текущий код очень медленный и занимает много времени.Кто-нибудь может подсказать, как оптимизировать этот код?

Пример

Apples  A
B
C
Oranges D

Ожидаемый результат

Apples A B C

Мой код

Function MYVLOOKUP(pValue As String, pWorkRng As Range, pIndex As Long)
    Dim rng As Range
    Dim xResult As String
    xResult = ""
    For Each rng In pWorkRng
        If rng = pValue Then
            xResult = xResult & " " & rng.Offset(0, pIndex - 1)
        End If
    Next
    MYVLOOKUP = xResult
End Function

Нет ошибки, ноЯ ожидаю, что vlookup будет выполняться быстрее со значениями в одной ячейке