Posto la macro.
- Codice: Seleziona tutto
Sub CancellaDuplicati()
Dim UR As Long
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False
UR = Sheets("foglio2").Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A2:F" & UR).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub