ciao
per il tuo esempio un codice VBA potrebbe essere questo sfruttando
una colonna di appoggio solo per eseguire la sub e la funzione
MATR.SOMMA.PRODOTTO() temporaneamente
da mettere nel modulo del foglio
Option Explicit
Sub EliminaDoppi()
'
Dim i As Long
Dim Nrig As Long
Nrig = Cells(Rows.Count, 1).End(xlUp).Row
Range("O1").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((R1C1:RC1=RC1)*(R1C2:RC2=RC2)*(R1C4:RC4=RC4))"
Range("O1").Select
Selection.AutoFill Destination:=Range("O1:O" & Nrig), Type:=xlFillDefault
For i = Nrig To 2 Step -1
If Cells(i, "O") > 1 Then Rows(i).Delete
Next i
Columns("O").ClearContents
End Sub
Ciao da locate
excel 2007 / 13