vorrei evidenziarli per colonna.
- Codice: Seleziona tutto
Sub A_riga()
Application.ScreenUpdating = False
RComp = "DM22:DV22"
LastR = Cells(Rows.Count, 2).End(xlUp).Row
Range("B10:CM27").Font.ColorIndex = 1
For k = 1 To 6 '<<<< N° di righe da confrontare
ICOL = 2 + k
Range(RComp).Offset(k - 1, 0).Range("A1").Font.ColorIndex = ICOL
For I = 10 To LastR
KK = 0
For J = 2 To 16
KK = KK + Application.WorksheetFunction.CountIf(Range(RComp).Offset(k - 1, 0), Cells(I, J))
Next J
If KK > 1 Then
For J = 2 To 16
If Application.WorksheetFunction.CountIf(Range(RComp).Offset(k - 1, 0), Cells(I, J)) > 0 Then _
Cells(I, J).Interior.ColorIndex = ICOL
Next J
End If
Next I
Next k
End Sub