将匹配值列表放入单个单元格中

时间:2013-11-07 22:33:51

标签: excel excel-formula excel-2010 vlookup

我有一个小的excel工作表,例如:

        A               B               C
1                       Best Choices->  Aspen, Oak, Maple
2
3       Wood Type       Score
4       Aspen           8.5  
5       Oak             8.6  
6       Elm             7.1
7       Hickory         7.5  
8       Maple           8.2

我需要检查B列中的值,如果得分等于或大于8(例如),请将列A中的匹配值列入C1中的单个单元格,如图所示。我尝试了很多Index,Match,Vlookup示例,但是还没能完成这项工作。

我认为公式很简单,但我没有运气。

1 个答案:

答案 0 :(得分:3)

首先在标准模块中输入以下UDF:

Public Function ListUm(rng As Range, crit As Double) As String
    Dim rw As Long, L As Long
    rw = rng.Rows.Count
    For L = 1 To rw
        If rng(L, 2) >= crit Then
            ListUm = ListUm & ", " & rng(L, 1)
        End If
    Next
    ListUm = Mid(ListUm, 3)
End Function

然后在C1输入:

<强> = ListUm(A4:B8,8)