2015-09-21 100 views
0
Return Lookup Array Lookup Value Expected Output 
A 2 1 NA 
B 2 2 A, B, C 
C 2 3 D,E 
D 3 4 F, G 
E 3 5 NA 
F 4 6 NA 
G 4 7 NA 

這就是表的樣子。第四列是我期望的返回值。我在第2列使用第3列查找值,輸出是第4欄搜索字符串並從另一列返回多個值

回答

0

由於需要在同一小區內返回多個值,你可能會需要一些VBA這裏:

Function doLookup(lookupValue As String) As String 
    Dim searchRange As Range 
    Dim searchCell As Range 
    Dim searchValue As String 

    'What range are we searching here? 
    Set searchRange = Sheet1.Range("B1:B" & Sheet1.Range("B" & Sheet1.Rows.Count).End(xlUp).Row()) 

    'Loop through each cell in the range 
    For Each searchCell In searchRange 

     searchValue = searchCell.Value 

     'If we find a match... 
     If searchValue = lookupValue Then 

      'If this is not the first thing in the list, then add a comma 
      If doLookup <> "" Then doLookup = doLookup & "," 

      'Add the thing we found 
      doLookup = doLookup & searchCell.Offset(0, -1).Value 
     End If 
    Next searchCell 
End Function 

堅持這個在一個新的模塊,然後在D1使用公式=DoLookup(C1)它應該吐出你在找什麼。如果名單非常大,那麼不要指望這太活潑了。

+0

我創建了一個新模塊並進入了查找列。它沒有返回任何東西。順便感謝您的關注。 –

+0

你是什麼意思,「輸入查詢列」? – JNevill

+0

我修改了腳本,改爲使用D列。我做了Lookup(g2)。我確保表單名稱和查找數組列匹配。我得到「#VALUE!」 –

相關問題