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.