Esta función al igual que la de sumar por color la hice por que en un trabajo llevaban un registro en excel donde la clásificación era por dos categorías y por colores del relleno de la celda, y a veces eran varios colores, como los colores eran una constante y el rango era un rango variable pues lo mejor era hacer una función en lugar de hacer siempre filtrados por cada color:

En esta función para poder funcionar necesita que ingreses dos parámetros, el primer parámetro es la celda que contiene el color que deseas obtener el conteo, el segundo parámetro es el rango que contiene las celdas con los colores a contar, ejemplo:

De la celda A1 a la celda A29 tenemos varios conceptos y varios colores pero nos interesa saber cuantas celdas tienen el color verde de relleno, entonces en la celda C1 colocamos el color verde (no importa si colocas texto en la celda solo valida el color de fondo), en la celda D1 hacemos el llamado de la función ingresando =contarPorColor(C1,$A$1:$A$29).

Te dejo el código de la UDF en caso de que quieras usarla o modificarla:

 Copiar código

Function contarPorColor(celda As Range, rango As Range) As Long
	Application.Volatile
	Dim conteo As Integer
	Dim obj As Object
	conteo = 0
	For Each obj In rango
	  If obj.Interior.Color = celda.Interior.Color Then
		conteo = conteo + 1
	  End If
	Next obj
	contarPorColor = conteo
End Function