هل يمكن حذف الصفوف المتشابهة تماماً والمتكررة من ملف اكسيل

[ابوشرشر]

السلام عليكم ورحمة الله وبركاته 

لدي ملف اكسيل مرتبط بنموذج قوقل فيه بعض الردود المتكررة 

بمعنى 
هناك صفوف متشابهه تماماً ومتكررة 
اريد حذفها والشرط أن تكون متشابهه تماماً في جميع البيانات .

..........
سأرفق ملف بذلك للتجربة 

شكراً لكم مقدماً 

test.xlsx

[سليم حاصبيا]

حرب هذا الماكرو

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

[ابوشرشر]

جزاك الله الجنة اخوي سليم 

سأجرب الآن 

جزاك الله الجنة اخوي سليم 

سأجرب الآن 

ــــــــــــ

 

اسعدك الله .... ممتاز نجح الكود 

زادك الله علماً ونفع بك وبعلمك 
وبارك فيك