مشكلة في كود مسح الصفوف المكررة 80 الف صف

[ابوعلي الحبيب]

استاذتي مشكلة في كود مسح الصفوف المكررة 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

ولم يعمل 

امل المساعدة ولكم الشكر

تم تعديل مايو 7, 2014 بواسطه habibss2

[أبو إيمان]

بعد  إذن الأستاذ عبد الله

تم التعديل ليتناسب مع طلبك   مع ملاحظة موقع البيانات المكررة ( بمعنى أن البيانات المكررة تكون في العمود A )

lR = [A10000].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

أتمنى من الله أن أكون قد وفقت

تم تعديل مايو 7, 2014 بواسطه أبو إيمان

[سليم حاصبيا]

استبدل [a1000]  بـ  [a100000]

هذا كل شيء

[ابوعلي الحبيب]

استبدلت ولم يعمل احاول ارفاق الملف

[سليم حاصبيا]

هل انت متأكد ان البيانات في العامود A

اذا لم تكن كذلك  اكتب في الكود رسم العامود حيث البيانات

[ابوعلي الحبيب]

 البيانات في العامود E

وقمت بتعديل الكود واستبدل A

ب E

[محمود_الشريف]

أخى الكريم

 

بعد اذن اخوانى فى الله

الأستاذ / ابو ايمان

الأستاذ / سليم حاصبيا

 

اليكم الكود التالى

وان شاء الرحمن سيفى بالغرض

قد تجد أنه بطىء بعض الشىء ولكنه فعال

وقم بربطه بزر وقم بتفعيل الماكرو

Sub DelteDuplicateInMultiPages()
Dim i As Integer
        For i = Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1
            If WorksheetFunction.CountIf(Range("E1:E" & i), Range("E" & i).Value) > 1 Then
                Range("E" & i).Delete shift:=xlUp
            End If
        Next i
End Sub

وإذا أردت العمل بسرعة

يوجد باكسل 2007

خاصية حذف التكرار

بتحديد العمود 

ثم بيانات

ثم حذف التكرار

 

ولى رجاء عندكم

تعديل اسم الظهور بالمنتدى الى اللغة العربية

طبقا لقوانين المنتدى

 

وتقبلوا منى وافر الاحترام والتقدير

[إبراهيم ابوليله]

الاخوه الافاضل

جميع الاكواد المرفقه اكواد صحيحه

وكلها تؤدى بنجاح

نرجو من الاخ

ارفاق ملف للعمل عليه

[ابوعلي الحبيب]

تحية طيبة للجميع واشكر لكم تفاعلكم 

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

بحيث يحذف المكرر والابقاء ع واحد 

 

العمود الذي فيه التكرار

 F

الجدول 2.rar

تم تعديل مايو 7, 2014 بواسطه habibss2

[محمود_الشريف]

أخى الكريم

اليكم المرفق به الكود الذى قمت بإرفاقة بمشاركتى السابقة 

فقط قمت بتغيير  العمود الى F

برجاء مراجعة المشاركة السابقة لى

الجدول 22.rar

[ابوعلي الحبيب]

اخي 

محمود_الشريف

 

 

يظهر 

تم تعديل مايو 7, 2014 بواسطه habibss2

[محمود_الشريف]

اخى الكريم 

تم التعديل على الكود

ليصبح هكذا مع تجربته

ولكنه يستغرق وقت طويل

Sub DelteDuplicateInMultiPages()
Dim x As Long
x = CLng(2000) * 365 
For X = Range("F" & Rows.Count).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("F1:F" & X), Range("F" & X).Value) > 1 Then
Range("F" & X).Delete shift:=xlUp
End If
Next X
End Sub

وهناك طريقة اسرع من خلال الاكسل نفسه

حدد العمود بالكامل من الضغط على F ثم اختر بيانات ثم اختر حذف المكرر 

[سليم حاصبيا]

 اليك اخي هذا الكود

انه يعمل بطريقة سريعة جداً

حبث انه يقوم بتجميع الصفوف الزائدة قبل ان يمسحها

 

ازالة المكرر.rar

[ابوعلي الحبيب]

اخي

سليم حاصبيا

 

الكود ممتاز

ولكن هل فيه امكانية ان يعمل ع عمود F

حاولت تعديلة ولم يعمل

تم تعديل مايو 8, 2014 بواسطه habibss2

[محمد الورفلي1]

تفضل با استاذ habibss2   ياريت تغير اسمك الي العربية فا انا كان اسمي باللغة الانجليزية واتبع نصائح الاخوه في المنتدي لقد وضعت اسمي باللغة العربية حتي يسهل التواصل

فا نحن نتعلم من الاساتذة مثل الاستاذ سليم  فقد حاولت في تغييرها الي العمود F وتمت بفضل الله

 

 

ازالة المكرر.rar

تم تعديل مايو 8, 2014 بواسطه محمد الخازمي

[سليم حاصبيا]

اخي جرب ان تستبدل السطر 11 بما يلي:

((Else Set RngDelete = Union(RngDelete, .Cells(i, "A").Offset(, -6).Resize(1, 9       

لا تسمح السطر 11 بل ضع فاصلة امامة و اكتب السطر الجديد/

غيّر كل شي يختص بالعامود  A  الى العمود f

[عبدالله باقشير]

السلام عليكم

اعجبني الكود كثيرا استاذ سليم وخاصة الاسم الذي اطلق عليه..........جزاكم الله خيرا

[سليم حاصبيا]

استاذ عبدالله

الف شكر لكم على مروركم الكريم

و هذه شهادة من حضرتكم اعتز بها

[أبو إيمان]

هل من طريقة تقوم بالحذف العكسي 

بمعني 

هناك بيانات في الصف 2  وتكرارها في الصف 5 وتكرارها في الصف 10   وهكذا فهل يمكن حذف الصفوف المتقدمة ( 2 و 5 ) والابقاء على اخر صف مثلا؟

[ابوعلي الحبيب]

الف شكر لكم 

[أبو إيمان]

للرفع