Para averiguar el número de celdas que tienen un determinado color de fondo, podemos usar esta útil función definida por el usuario.

El uso es muy sencillo. Simplemente hemos de escribir la función =CONTARCOLOR(celdas), donde celdas será el rango de celdas del que queremos obtener la cuenta.

Este ejemplo en concreto cuenta las celdas que tienen de fondo el color rojo (3). Podemos cambiar esto fácilmente para obtener la cuenta de las celdas con otro color.

Function ContarColor(Rg)
  Dim C As Range
  For Each C In Rg.Cells
    If C.Interior.ColorIndex = 3 Then
      ContarColor = ContarColor + 1
    End If
  Next C
End Function