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

我有一个小的Excel工作表，如：

ABC 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中的单个单元格中，如图所示。 我已经尝试了很多索引，匹配，Vlookup的例子，但一直没有能够做到这一点。

我想这个公式会很简单，但是我没有任何运气。

Answer 1

首先在标准模块中input以下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中input：

= ListUm（A4：B8,8）