Поместите список соответствующих значений в одну ячейку

Question

У меня есть небольшой первенствовать лист, такие как:

 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, но не смог выполнить эту работу.

Я бы подумал, что формула будет довольно простой, но мне не повезло.

Answer 1

Сначала введите следующую 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 

Тогда в С1 входят:

= ListUm (A4: B8,8)