اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

  • أفضل إجابة

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

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 لتسريع الكود أكثر

بالتوفيق

  • Like 4
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • المتواجدين الان   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information