我试图得到多个VLOOKUP在单细胞多VLOOKUP结果
我得到#VALUE!错误与下面的功能,需要帮助纠正代码
MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim i As Long
Dim Result As String
For i = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(i, 1) = Lookupvalue Then
For J = 1 To i - 1
If LookupRange.Cells(J, 1) = Lookupvalue Then
If LookupRange.Cells(J, ColumnNumber) = LookupRange.Cells(i, ColumnNumber) Then
GoTo Skip
End If
End If
Next J
Result = Result & " " & LookupRange.Cells(i, ColumnNumber) & ","
Skip:
End If
Next i
MultipleLookupNoRept = Left(Result, Len(Result) - 1)
End Function
你的代码是伟大的,你忘了一个小东西,从你的'Function'返回'String'。将第一行修改为'Function MultipleLookupNoRept(Lookupvalue As String,LookupRange As Range,ColumnNumber As Integer)As String',它可以为你工作 –
谢谢但是我再次遇到同样的错误 –
你怎么使用它?您是从Excel工作表中输入正确的参数? –