ابو هاله النبلسي قام بنشر يونيو 27 مشاركة قام بنشر يونيو 27 السلام عليكم في الملف جدول توجد اسماء مكررة حسب وقت التسجيل في حالة الاسم مكرر يتم حذف الصف الاقدم حذف.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يونيو 28 أفضل إجابة مشاركة قام بنشر يونيو 28 يمكنك استعمال هذا الكود لحذف أقدم التكرارات 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 لتسريع الكود أكثر بالتوفيق 4 رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر يونيو 29 الكاتب مشاركة قام بنشر يونيو 29 كل التقدير لشخصك الكريم رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يونيو 29 مشاركة قام بنشر يونيو 29 الحمد لله الذي وفقنا جميعا لهذا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها