استاذتي مشكلة في كود مسح الصفوف المكررة 80الف امل المساعدة
السلام عليكم
اساتذتي لدي ملف اكسل
بصيغة (97-2003.xlsx)
فيه
عدد 80000 الف صف
وعدد 6 اعمدة
المشكلة ان احد الاعمدة في صفوف مكررة كثيرة
حاولت مسحها والابقاء ع واحد
بكود الاستاذ عبدالله المجرب
Sub Abu_Ahmed_Del()
LR = [A1000].End(xlUp).Row
For i = LR To 1 Step -1
If Application.CountIf(Range("A1:A" & LR), Cells(i, 1)) > 1 Then Cells(i, 1).Delete Shift:=xlUp
Next
End Sub
ولم يقبل
حولت الى اكسل 2013
ولم يعمل
امل ال