Eu acredito que você precisa de funções personalizadas para esse propósito. Solte esse código em um módulo dentro de sua pasta de trabalho (Abra o VB Editor, insira um módulo, cole o código abaixo nesse módulo, feche o VB Editor).
Function COUNTCELLCOLORSIF(CellRange As Range, ColorIndex As Integer) As Long
Dim rngCell
Application.Volatile 'Thanks, Excellll!
For Each rngCell In CellRange
If rngCell.Interior.ColorIndex = ColorIndex Then
COUNTCELLCOLORSIF = COUNTCELLCOLORSIF + 1
End If
Next rngCell
End Function
Function CELLCOLORINDEX(CellRange As Range) As Integer
Application.Volatile 'Thanks, Excellll!
CELLCOLORINDEX = CellRange.Interior.ColorIndex
End Function
CELLCOLORINDEX permite determinar o valor inteiro da cor de uma determinada célula. Por exemplo, para verificar o valor inteiro da cor interna do A1, sua fórmula seria
=CELLCOLORINDEX(A1)
Você pode usar COUNTCELLCOLORSIF para contar quantas células em uma determinada área têm essa cor. Por exemplo, se A1 contiver o valor inteiro da cor que você deseja verificar e as células que você deseja verificar estiverem em B1: B150, sua fórmula será:
=COUNTCELLCOLORSIF($B$1:$B$150, $A$1)