Что для Вас красота? Многоэтажная формула с массой лишних вычислений?
Код
=СЧЁТ(1/ЧАСТОТА(ЕСЛИОШИБКА(ПОИСКПОЗ(ЕСЛИ($G$3:$G$19=B3;ЕСЛИ($H$3:$H$19<>"";$H$3:$H$19));H3:H19;););СТРОКА(H3:H20)-3))-1
ЕСЛИОШИБКА в Excel-2003 не работает.
В рабочих файлах нужно смотреть на оптимальность вычислений. Там красота спрятана.
Доп. столбец:
Код
=--ЕСЛИ(H3<>"";ПОИСКПОЗ(H3;ИНДЕКС($H$3:H3;ПОИСКПОЗ(G3;$G$3:G3;)):H3;)=СТРОКА(A1)-ПОИСКПОЗ(G3;$G$3:G3;)+1)
Результирующая формула:
Код
=СУММЕСЛИ($G$3:$G$19;B3;$F$3:$F$19)
И никаких массивных вычислений.