Vlookup、複数の値をセルに戻す

Question

vlookupから複数の値を返すことはありますか？シート1のcol Iが複数の値をセルに返すようにしたい、またはこれを表示する別の方法があります（むしろピボットしません）。

シート1：コルAがどのコルBに一意の文字列に対応する重複する文字列値を有している：すべての私のユニークな値（COL F、およびコルIの値を返す）、

シート3を有します空白も含めてユニークです。

EDIT

シート1又は所望の結果：

シート1：現在

シート3現在：ほとんど0の、空白または一意の値に対応する複数の値による

現在の式

=VLOOKUP(F2,Sheet3!A:B,2,FALSE) 

返します。

Answer 1

VBAの点では、私が送ったリンクのコードを少し変更する必要があります。これはうまくいくはずです：

Option Explicit 
Function vlookupmulti(rngLookup As Variant, rngSource As Range, col As Double) As String 
Dim d As Double, strCell As String 

'Error if range has less columns than col 
If rngSource.Columns.Count < col Then 
    vlookupmulti = CVErr(xlErrNA) 
    Exit Function 
End If 

'Loop through rows in the lookup column 
For d = rngSource.Row To rngSource.Rows.Count 
    If rngLookup = Sheets(rngSource.Parent.Name).Cells(d, rngSource.Column).Value Then 
     strCell = Sheets(rngSource.Parent.Name).Cells(d, rngSource.Column + col - 1).Value 
     If Len(strCell) > 0 Then vlookupmulti = vlookupmulti & strCell & ", " 
    End If 
Next d 

'Remove comma at end 
If Right(vlookupmulti, 2) = ", " Then 
    vlookupmulti = Left(vlookupmulti, Len(vlookupmulti) - 2) 
End If 

'Give error if no results 
If vlookupmulti = "" Then 
    vlookupmulti = CVErr(xlErrNA) 
End If 

End Function