Ну что ж - формулы с цветом не работают -конечно можно программировать, но может устроит с дополнительным столбцом? - см. файл
поиск уникальных - классика Код
=ИНДЕКС(Лист1!$B$44:$B$116;НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ(Лист1!$B$44:$B$116;Лист1!$B$44:$B$116;0)=СТРОКА(Лист1!$B$1:$B$73);СТРОКА(Лист1!$B$1:$B$73));СТРОКА(результат!A1)))
подсчёт числа Код
=СУММПРОИЗВ(--ЕЧИСЛО(Лист1!$AN$44:$AN$116);Лист1!$AR$44:$AR$116;ЕСЛИ(Лист1!$B$44:$B$116=результат!A3;1;0))
обе массивные
Ну и UDF на всякий тоже приложил
[vba]Код
Function calc(a As Range, b As Range, c As Integer)
Application.Volatile
Dim cel As Range
calc = 0
For Each cel In a
If cel.Value = b.Value And cel.Offset(0, c).Value <> "," And cel.Interior.Color = 16777215 Then calc = calc + 1
Next
End Function
[/vba]