tady jsem ti napsal funkci na to. Normalne to skopirujes a das do listu nebo modulu ve VBA, pak ji budes mit mezi vlastnimi funkcemi

Kód:
Function Sum_Color_cell(Pole As Range, Vzorova_barva As Range)

For i = 1 To Pole.Columns.Count
  For j = 1 To Pole.Rows.Count
    If Pole(j, i).Interior.ColorIndex = Vzorova_barva.Interior.ColorIndex Then
      Sum_Color_cell = Sum_Color_cell + 1
    End If
  Next
Next

End Function
Pokud tam budes mit, ale v tech danych bunkach i hodnoty muzes pouzit funkci SUMIF