Por causa do aninhamento envolvido, eu recomendaria uma função definida pelo usuário (UDF) para resolver isso.
Este código ...
Function CountPairs(theRange As Range, P As Variant, Q As Variant) As Long
Dim PRow As Range
Dim PCell As Range, QCell As Range
Dim Result As Long
' initialize
Result = 0
For Each PRow In theRange.Rows 'search each row for P Value
For Each PCell In PRow.Cells
If PCell.Value = P Then
For Each QCell In PRow.Cells 'if P Value found, search for Q Value
If QCell.Value = Q Then
Result = Result + 1
Exit For
End If
Next QCell
Exit For
End If
Next PCell
Next PRow
' clean up
Set PRow = Nothing
Set PCell = Nothing
Set QCell = Nothing
CountPairs = Result
End Function
Gera esses resultados ...
...ondeuseiformataçãocondicionalparadestacarosvalores"P" e "Q"
No entanto, com uma coluna "auxiliar", ela pode ser resolvida com a fórmula incorporada ...
Onde,nestecaso,acolunaauxiliarcontémestafórmulapreenchida...
=IF(COUNTIF($B4:$N4,"="&$B$2)>0,IF(COUNTIF($B4:$N4,"="&$C$2)>0,1,0),0)
e a célula A2 contém uma soma simples ...
=SUM(A4:A8)