كيف حذف السطور المكرره

[mmjksa]

تحية طيبة للجميع

عندي ملف اكسل به حوالي 3000 سطر، وبه عدة اسطر مكرره.

هل يمكن البحث عن الاسماء المكرره في الورقة الاولي وقصها ووضعها في الورقة الثانية، لكي اتمكن من مشاهدة المكرر وحذفه؟

شاكرا لكم مساعدتي مقدما

del dub.rar

تم تعديل أكتوبر 24, 2010 بواسطه mmjksa

[طارق محمود]

السلام عليكم

تفضل المرفق

[طارق محمود]

مشكلة في التحميل

المرفق علي الرابط

http://www.4shared.com/file/ZqwWBe0a/del_dub2.html

[عادل حنفي]

السلام عليكم

اخي الحبيب طارق

بارك الله فيك و في اعمالك

د

و اعذرني عملت علي الملف و سارفق النتيجة لاثراء الموضوع

خالص تحياتي و تقديري

مكرر.rar

[طارق محمود]

أخي عادل

طبعا لابأس ولاداعي لعذر أوغيره

كلما كثرت الحلول سهل الأمر علي السائل والقاريء والمتعلم

أنا أتمني من جميع الخوة المشاركة بحلول أخري في كل ماأشارك به

كلنا نتعلم من بعض

جزاك الله خيرا

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

[mmjksa]

شكرا للجميع على الرد، وحقيقه مجهود رائع.

بالنسبه لحل الاخ TareQ M كيف انفذها على الملف اللي عندي.

وبالنسبة لحل الاخ aah_aah2008 عند اضافة اسم يدخل في لوب لازم اضغط اسكيب لتوقيف البرنامج.

واتمنى تطور الفكره، ولا عليكم امر، ان يقص فقط المكرر ويوضع في صفحه لوحده لاتمكن من حذفها والاساس في صفحه، لانه يصعب على تميز الاسماء المكرره لان عددها كبير.

واكرر شكر وتقديري لكم

[عادل حنفي]

السلام عليكم

اخي

عذرا

جرب الملف المرفق

تحياتي

مكرر3.rar

[mmjksa]

اخي aah_aah2008 شكرا لك على سرعة الرد

حقيقه حلك هذا رائع استخراج الاسماء المكرره في ورقه مستقله وعدد المكرر وفي اي سطر وحذفها في نفس الوقت.

لي طلب بسيط، ياليت اذا ضغط على زر مكرر كل مره يفتح لي ورقه جديده ويضع المكرر بها.

لانه اذا ضغطت زر المكرر المره الاولي ممتاز يظهر كل المكرر في الورقة الثانية، لكن اذا ضغطت مره ثانية على زر المكرر فانة يمسح المعلومات التي بالورقه الثانية.

طبعا الحل ان انسخ الورقه الثانية في ملف اخر عشان احتفظ بها، لكن الحل البرمجي فيه ابداع وعصف للذهن.

شاكرا لك ولجميع الاخوان في هذا المنتدى الاكثر من رائع

والى الامام

تم تعديل أكتوبر 24, 2010 بواسطه mmjksa

[عبد الفتاح كيرة]

الله الله الله

صفحة مليئة بالإثراءات

لما أدرسها بعد

لكن أساهم بطريقة أخرى

أخى السائل

أنشئ زر أمر فى الصفحة واربطه بالكود التالى

Sub ÒÑ1_ÇäÞÑ()

On Error Resume Next

Dim mycol As Collection

Dim myrng As Range

Set mycol = New Collection

For Each myrng In Range("a1:a300")

mycol.Add myrng.Value, myrng.Value

Next myrng

For i = 1 To mycol.Count

Range("b" & i) = mycol(i)

Next i

End Sub

مع الشكر

المرفق

حذف السطور المكررة باستخدام collection.zip

[عادل حنفي]

السلام عليكم

اخي Kemas

بارك الله فيك

اخي mmjksa

جرب المرفق اظنه سيفيدك

تحياتي

مكرر4.rar

[mmjksa]

بارك الله في الجميع

حقيقه كلها افكار رائعه وجميله، وتؤدي نفس الغرض.

الملاحظ على الحلول في حين التنفيذ انها بطيئة !!! وهذا مبرر لان الملف كبير جدا به قرابة 7800 سطر.

اكرر شكري للجميع

تحياتي

[mmjksa]

بارك الله في الجميع

حقيقه من بداية النقاش ووجود الحلول الجميله والرائعه. وبعد التجربه على عدد قليل من الاسطر والاعمده كانت النتائج جدا رائعه وسريعه.

ولكن عند تنفيذها على الملف اللذي عندي واللذي يحتوي قرابة 7800 سطر، يلاحظ تطويل العمليه وبلا مبالغه تأخذ وقت طويل جدا، وفي الاخر لايوجد استجابة في البرنامج يعني (يهنق).

فكرت في تقسيم الملف على عدة ورقات تحتوي كل ورقة على 1000 سطر، وبعد الانتهاء ادمج الورقات في ورقه واحده ثم انفذ البرنامج مره اخرى.

لان المكرر بصراحه يمكن يصل الى نصف عدد الاسطر يعني 3000 سطر مكرر.

تحياتي للجميع

تم تعديل نوفمبر 1, 2010 بواسطه mmjksa

[عبد الفتاح كيرة]

أخى mmjksa

هل جربت الكود فى المشاركة رقم 9

أنا جربته ووجدته سريع جدا

و1000 سطر ليست كثيرة

والله أعلم

[mmjksa]

نعم اخي جربت كل الحلول

انا عندي تقريبا 7800 سطر، فحين جربت الحلول كلها كانت تتاخر لوقت طويل جدا.

فقمت بتقسيم الملف على 1000 سطر على 8 ورقات فانحلت المشكله واخرجت المكرر من كل ورقه.

ثم دمجت جميع الورقات في ورقه واحده، ثم نفذت المعادله، طبعا تأخرت لكن مو مثل اول.

عموما انحلت عندي المشكله واخرجت السطور المتشابهه.

اشكرا الجميع على المساعده والاهتمام

[على حسن]

جزاكم الله خيرا وجعله الله فى ميزان حسناتكم