كود حذف المكرر والابقاء على قيمة واحدة فقط 1

الكود يقوم بحذف المكرر من القيم والابقاء على قيمة واحدة فقط

ويعمل على مدى مفتوح

ولا يقوم بحذف الصف بالكامل وانما يقوم بالحذف بطريقة الازاحة الى اعلى

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