Option Explicit Sub test() Dim ur As Long Dim riga As Long Dim col As Long Dim cerca As Variant Dim cella As Long ur = Range("A" & Rows.Count).End(xlUp).Row 'trova ultima riga colonna A For riga = 1 To ur 'ciclo dalla 1' all'ultima riga For col = 1 To 4 'per ogni riga ciclo le colonne A-D cerca = Cells(riga, col).Value 'cosa cerco For cella = col + 1 To 5 'per ogni riga ciclo le colonne B-E If cerca = Cells(riga, cella).Value Then 'confronta valore primo ciclo a secondo ciclo Cells(riga, cella).ClearContents 'trovato duplicato ... cancella End If Next cella Next col Next riga End Sub