Contar celdas mismo fondo

[GEMO]

Buen día, hasta donde se por ahora, no se puede con una fórmula, pero si con una macro:

Por ejemplo:

(No se cuantos colores uses, este ejemplo funciona con uno a la vez)
Primero rellena una celda (A1en mi caso) y después obviamente el rango que vas a seleccionar. Lo que sigue es la macro en el editor de VB:


Bien "color" es la variable que va a contener el número de celdas contadas, "total" es la variable donde se aloja la celda a la que haces referencia del color y donde se va a mostrar el total de celdas con ese color.

Sub contarcolor()

Dim color As Integer
Dim total As String

'Anterma, cambia esta direccion de celda a la que tu tengas con el color a contar:

total = "A1"

color = 0

For Each cell In Selection
If ActiveCell.Interior.ColorIndex = ActiveSheet.Range(total).Interior.ColorIndex Then
color = color + 1
End If
ActiveCell.Offset(1, 0).Select
Next cell
ActiveSheet.Range(total).FormulaR1C1 = color

End Sub

Después le asignas una "Tecla de método abreviado" << Ctrl + "la letra que elijas">> para que una vez seleccionado el rango donde vas a contar las celdas la presiones y te muestre el resultado.

De igual forma pues puedes adaptarla mas a lo que pretendas hacer.
Espero te sirva de algo. Saludos