Non si può colorare celle dove sia presente una FC
Senza FC...il risultato è complettamente diverso
Forse esiste un problema, hai messo =E(CONTA.SE(A$1:A$100;A1)>1;A1<>"")
Quando esaminerà la cella T1, FC ragiona come se la formula fosse
=E(CONTA.SE(T$1:T$100;T1)>1;T1<>"")
Sub colora()
Dim area As Range, cel As Range, n
Set area = Range("A1:T41") 'modifica a piacere
For Each cel In area
n = Application.WorksheetFunction.CountIf(area, cel)
If n > 1 And cel <> "" Then cel.Interior.ColorIndex = 5
Next
Set area = Nothing
End Sub
[Modificato da ABCDEF@Excel 04/03/2020 23:51]