VBA自定义函数：满足多个条件并返回多个值的查找

Option Compare Text
Function lookupFruitColours(ByVal lookup_value As String, _
     ByVal intersect_value As String, _
     ByVal lookup_vector As Range, _
     ByVal result_vector As Range) As String
 
 Application.Volatile
 
 Dim varLookupVector As Variant
 Dim varResultVector As Variant
 Dim lngIndexRows As Long
 Dim intIndexColumns As Integer
 Dim result_set As String
 
 varLookupVector = lookup_vector
 varResultVector = result_vector
 
 For lngIndexRows = LBound(varLookupVector, 1) To UBound(varLookupVector, 1)
   If Trim(varLookupVector(lngIndexRows, 1)) = Trim(lookup_value) Then
     For intIndexColumns = LBound(varResultVector, 2) To UBound(varResultVector, 2)
       If varLookupVector(lngIndexRows, intIndexColumns) = Trim(intersect_value) Then
         result_set = varResultVector(1, intIndexColumns) & "," & result_set
       End If
     Next intIndexColumns
   End If
 Next lngIndexRows
 
 lookupFruitColours = Left(result_set, Len(result_set) - 1)
End Function