Vlookup? I am sure the solution is here

hello welcome to the forum...


steps.
Right click on the sheet tab - choose "view code"
on the windows that will appear -go to main menu - Insert - then choose "module"
Then paste the code on that window.
Finish.

Function VlookMulti(lookup_value, table_array As Range, col_index_num) As Variant
  
  Dim iRow    As Long
  Dim nFound  As Integer
  iRow = 1
  nFound = 0
  
  Do
     If table_array(iRow, 1) = lookup_value Then
        nFound = nFound + 1
        If nFound = 1 Then
           VlookMulti = table_array(iRow, col_index_num)
        Else
           VlookMulti = VlookMulti & ";" & table_array(iRow, col_index_num)
        End If
     ElseIf nFound > 0 Then
        Exit Do
     End If
     iRow = iRow + 1
  Loop Until iRow > table_array.Rows.Count
  
  If nFound = 0 Then VlookMulti = CVErr(xlErrNA)

End Function

use
E2 is 1

=vlookmulti(E2,A:B,2)

Just in case. This was a fairly similar problem
http://www.excelforum.com/showthread...=1#post2852229
//Ola


...works fine. I just tested, in cell
D2: 1
E2: =StringConcat("; ";IF($A$2:$A$12=$D2;$B$2:$B$12;""))
confirmed with Ctrl+Shift+Enter, not just Enter