حرب هذا الماكرو
Option Explicit
Sub Del_row()
Dim i As Long
Dim lr As Long: lr = Cells(Rows.Count, 1).End(3).Row
Range("CV2:CV" & lr).Formula = "=SUMPRODUCT(--(A2&B2&C2=$A$2:A2&$B$2:B2&$C$2:C2))"
Range("CV2:CV" & lr).Value = Range("CV2:CV" & lr).Value
For i = lr To 2 Step -1
If Cells(i, "CV") > 1 Then Cells(i, "CV").EntireRow.Delete
Next
Range("CV:CV").ClearContents
End Sub
الملف مرفق
test salim.xlsm