عن هذا الملف
الكود يقوم بحذف المكرر من القيم والابقاء على قيمة واحدة فقط
ويعمل على مدى مفتوح
ولا يقوم بحذف الصف بالكامل وانما يقوم بالحذف بطريقة الازاحة الى اعلى
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
Recommended Comments
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.