ازالة الارقام المكررة من الصفوف

[Tarekfathallah]

الرجاء المساعدة اريد ازالة الصفوف المكررة وابقاء صف واحد 

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

بمعنى   1    1       1      1       بعد الازالة سيبقى 1 فقط 

وشكرا 

[حسين مامون]

في المرة القادمة ارفع ملف مع شرح ما تريد بالتفصيل 

استعمل الكود التالي اذا كانت البيانات في العمود A

Sub TEST()
Dim LR
LR = Cells(Rows.Count, 1).End(3).Row
 If LR = 1 Then Exit Sub
  Range("a1:a" & LR).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

اليك الرابط التالي ربما تستفيد من مشاركات الاساتذة الافاضل

 

تم تعديل نوفمبر 28, 2020 بواسطه حسين مامون

[Tarekfathallah]

السلام عليكم اخي شكرا لمرورك وآسف لعدم ارفاق الملف ساجرب واوافيك بالنتيجة .