حذف صف بناء على شرطين

[ابو هاله النبلسي]

السلام عليكم في الملف جدول توجد اسماء مكررة حسب وقت التسجيل في حالة الاسم مكرر يتم حذف الصف الاقدم 

حذف.xlsx

[أ / محمد صالح]

يمكنك استعمال هذا الكود لحذف أقدم التكرارات

Sub DeleteOldestRepeated()
lr = Cells(Rows.Count, 3).End(xlUp).Row
For r = 2 To lr
If Evaluate("=COUNTIF($C$2:$C$" & lr & ",C" & r & ")") > 1 Then
For n = (r + 1) To lr
If Range("c" & n).Value = Range("c" & r).Value Then
If Range("b" & n).Value >= Range("b" & r).Value Then
Rows(r & ":" & r).Delete Shift:=xlUp
r = r - 1
Else
Rows(n & ":" & n).Delete Shift:=xlUp
End If
End If
'Exit For
Next n
End If
Next r
MsgBox "Done by mr-mas.com"
End Sub

وإذا كانت احتمالات التكرارات مرتين فقط في الاسم الواحد فيمكن حذف علامة التعليق قبل exit for لتسريع الكود أكثر

بالتوفيق

[ابو هاله النبلسي]

كل التقدير لشخصك الكريم 

[أ / محمد صالح]

الحمد لله الذي وفقنا جميعا لهذا