ABORDAGEM:
- adiciona uma coluna que, para cada linha, contém a concatenação das 5 colunas
- faça o código funcionar de baixo para cima, procurando por duplicatas na nova coluna
Diga que os dados são como:
EmF1digite:
=A1&CHAR(1)&B1&CHAR(1)&C1&CHAR(1)&D1&CHAR(1)&E1
ecopieparabaixo.entãocorra:
SubDe_Dup()DimiAsLong,NAsLong,wfAsWorksheetFunctionDimr1AsRange,r2AsRangeN=Cells(Rows.Count,"F").End(xlUp).Row
Set wf = Application.WorksheetFunction
For i = N To 2 Step -1
Set r1 = Cells(i, "F")
Set r2 = Range(Range("F1"), Cells(i - 1, "F"))
If wf.CountIf(r2, r1.Value) > 0 Then r1.EntireRow.Delete
Next i
End Sub
terminando com:
Você nem precisa classificar os dados primeiro!