ciao
da inserire nel modulo del foglio
Option Explicit
Sub EliminaCinq()
Dim i As Long, o As Long
Dim R1 As String, R2 As String
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
R1 = Range("B" & i) & Range("C" & i) & Range("D" & i) & _
Range("E" & i) & Range("F" & i)
For o = i - 1 To 2 Step -1
R2 = Range("B" & o) & Range("C" & o) & Range("D" & o) & _
Range("E" & o) & Range("F" & o)
If R1 = R2 Then
Rows(i).Delete
Exit For
End If
Next o
Next i
Application.ScreenUpdating = True
End Sub
riallego il tuo file
Ciao da locate
excel 2007 / 13