Нужна адаптация Vlookup для нескольких значений concatd

Question

в этой возможности мне нужна некоторая поддержка при создании функции VBA для извлечения нескольких значений при вызове адаптации Vlookup, который я не могу завершить самостоятельно,

Исходная база данных:

CODE    Description
824110111841    BRP391
824110112161    BY698P
824110112451    BRP391 
824110112541    BRP392
824110112781    BRP391 
824110112791    BRP391 
824110112801    BRP391 

Извлечение информации DB2:

    CODE    Description Country STOCKS
824110111841    BRP391  Uruguay 100
824110111841    BRP391  Chile   200
824110111841    BRP391  Argentina   32
824110111841    BRP391  Bolivia 45
824110112161    BY698P  Argentina   12
824110112161    BY698P  Uruguay 100
824110112161    BY698P  Peru    120
824110112451    BRP391  Argentina   440
824110112541    BRP392  Argentina   550
824110112781    BRP391  Uruguay 241
824110112781    BRP391  Chile   77
824110112791    BRP391  Peru    222
824110112801    BRP391  Bolivia 100

Окончательный желаемый результат:

  CODE  Description STOCKS OVERVIEW
824110111841    BRP391  Uruguay: 100 | Chile: 200 | Argentina: 32 | Bolivia: 45
824110112161    BY698P  Argentina: 12 | Uruguay: 100 | Peru: 120
824110112451    BRP391  Argentina: 440
824110112541    BRP392  Argentina: 550
824110112781    BRP391  Uruguay: 241 | Chile: 77
824110112791    BRP391  Peru: 222
824110112801    BRP391  Bolivia: 100

Посмотрите, что я сделал, это получил объединение нескольких совпадений vlookup и соединил их вместе.

XX.

Answer 1

Я наконец-то узнал, как закончить свою идею сам, я пишу, чтобы помочь SO сообществу, если по какой-то случайности кому-то понадобится эта функция.

Option Explicit

Function SLOWMOVER(value As String, WorkRng As Range, col As Long)

Dim rng As Range
Dim Fx As String
Fx = ""
For Each rng In WorkRng
    If rng = value Then
        Fx = Fx & "| " & rng.Offset(0, col - 2) & ": " & rng.Offset(0, col - 1)
    End If
Next
SLOWMOVER = Fx
End Function


''' Credit to extendedoffice.com where i saw a similar example which i adapted to solve my problem.

С уважением!

PD: ЭтоЭто был третий пост, который я загружаю в это сообщество, и я всегда получаю плохую репутацию, я бы очень хотел получить отзыв, чтобы я мог лучше справляться со своими запросами, а не просто получать плохую квалификацию.