Confronto tra 2 righe di colori uguali

 
 Option Explicit
 
 Dim ColCol As Variant
 
 
 
 Sub Rileva()  'rileva il numero di colore da escludere
 
 ColCol = ActiveCell().Interior.Color
 
 Call Conta_col
 
 End Sub
 
 
 
 Sub Conta_col()
 
 Dim Ncolore As Variant, ConCol As Variant
 
 Dim i As Long, o As Long, c As Long, Ncol As Long, Nrig As Long
 
 ''Nrig = 3
 
 ConCol = 0
 
 With Range("AT3:BM16")
 
      .Interior.Color = xlNone
 
      .ClearContents
 
 End With
 
 For Nrig = 3 To 16
 
 For i = 2 To 21
 
  Ncolore = Cells(Nrig, i).Interior.Color
 
  If Ncolore <> ColCol Then   '' colore bianco nullo
 
    For o = 24 To 43
 
      If Cells(Nrig, o).Interior.Color = Ncolore Then ConCol = ConCol + 1
 
    Next o
 
  End If
 
  Cells(Nrig, i + 44).Interior.Color = Ncolore
 
  Cells(Nrig, i + 44) = ConCol
 
  ConCol = 0
 
 Next i
 
 Next Nrig
 
 End Sub