Contar celdas diferentes en rangos en excel

[mrocf]

En tal caso, quizás te convenga utilizar una función personalizada como por ejemplo:

Código PHP:

  Function ContarConFiltro(r_Cuenta As Range, r_Filtro As Range, ByVal Filtro As Double) 
Dim i As Long, Aux As String 
 
If r_Cuenta.Rows.Count <> r_Filtro.Rows.Count Then 
  ContarConFiltro = "Las filas no son iguales" 
  Exit Function 
End If 
If r_Cuenta.Columns.Count <> 1 Or r_Filtro.Columns.Count <> 1 Then 
  ContarConFiltro = "Rango con más de una columna" 
  Exit Function 
End If 
 
For i = 1 To r_Cuenta.Rows.Count 
  If r_Filtro(i) = Filtro And InStr(Aux, r_Cuenta(i) & "@") = 0 Then _ 
    Aux = Aux & r_Cuenta(i) & "@" 
Next i 
 
ContarConFiltro = Len(Aux) - Len(WorksheetFunction.Substitute(Aux, "@", "")) 
End Function  
   

Se utiliza así:

ContarConFiltro(A1:A7; C1:C7; 4)

siendo:
A1:A7 : el rango de información distinta a contar
C1:C7 : el rango de selección
4 : el dato que selecciona (mes "4" en este caso)

¿Te puede servir?
Saludos, Cacho.