كود حذف المكرر

[mohamed deyaa eldin]

اللهم صلي  وسلم علي سيدنا محمد 

اريد كود يحذف المكرر في الخلية A

 

امر تسليم CBS.xlsm

[الـعيدروس]

السلام عليكم

استخدم ازالة التكرارات الخاصة بالاكسل

Sub Delt()
    Dim Lr
    Lr = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A8:F" & Lr).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

 

[ابو ايسل]

امر تسليم CBS.xlsm

تفضل اخي وقمت بتعديل لمنع التقرار فيما بعد

والصوره لتوضيح طريقه الحذف

 

[الـعيدروس]

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

امر تسليم1 CBS.xlsm

[mohamed deyaa eldin]

شكرا جزاكم الله خير