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