كيف أحذف الايميلات المتكررة ؟

[رحااال]

السلام عليكم ورحمة الله وبركاته

عندي ملف اكسل فيه مئات الالوف من الايميلات التابعة للعملاء ، موزعة على 7 sheets

وانا متأكد كثير منها مكرر

اريد طريقة لحذف المكرر مباشرة من الملف كله وابقاء واحد فقط ، ارجو المساعدة

[طارق محمود]

السلام عليكم

أخي الكريم

مرحبا بك بين أخوانك

من فضلك إرسل فقط نموذج من الملف وليس كله

تم تعديل يوليو 3, 2010 بواسطه TareQ M

[رحااال]

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

طبعاالملف فيه اكثر من 9 ورقات .. وكل ورقة مئات الالوف من الايميلات ،

فقط ايميلات

اذا فيه طريقة الغي المكرر في الملف كامل او حتى كل ورقة على حدة مو مشكلة ، الف شكر لك

example.rar

[طارق محمود]

السلام عليكم حل سريع باستخدام

Data > Filter < Advanced Filter

بشرط أن تضع جميع الإميلات في عمود واحد

أنظر الملف المرفق وكذلك الفيديو

ستجد أن النتيجة قد حذفت إميلين قد تكررا في البيانات

وهناك طرق أخري

ولكني أري هذه كافية

example.rar

RepetedEmails.rar

تم تعديل يوليو 4, 2010 بواسطه TareQ M

[يحيى حسين]

السلام عليكم و رحمة الله و بركاته

أخي رحال

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

Sub DelteDuplicateInMultiPages()

Dim LastR As Long, i As Integer, ws As Worksheet

For Each ws In Sheets

    LastR = ws.Range("a" & Rows.Count).End(xlUp).Row

        For i = LastR To 1 Step -1

            If WorksheetFunction.CountIf(ws.Range("a1:a" & i), ws.Range("a" & i).Value) > 1 Then

                ws.Range("a" & i).Delete shift:=xlUp

            End If

        Next i

Next ws

End Sub

اتمنى ان تلبي طلبك

دعواكم

[رحااال]

والله ماقصرت يا أخي العزيز شرح بالفيديو واضح جدا ً ، طبقتها الآن ولازلت انتظر النتيجة نظرا لكثرة الايميلات ،،

مشكلة ثانية اذا سمحت وآسف لو طولت عليك ،

المشكلة هي ان كل ورقة لااستطيع ان اضح اكثر من مليون ايميل تقريبا اضطر اسوي ورقة ثانية وثالثة وهكذا ,,

الآن عندي ملفين كل ملف فيه مايقارب 9 ورقات !

طبعا اصير مضطر لتطبيق اللي انت شرحته في كل ورقة وهذي ليست مشكلة ,, المشكلة انه ربما يكون تشابه بين عدة ايميلات في ورقات مختلفة او في الملفين

اذا فيه حل اكون لك شاكر وهذا تساؤلي الأخير ..... لو مافيه حل انت كفيت ووفيت وبيض الله وجهك

[طارق محمود]

السلام عليكم

فيه أكثر من حل إن شاء الله

مؤقت تفضل هذا الحل

ينبهك عن الإميلات المتكررة في أوراق أخري بالمعادلات

example2.rar

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

ضع الإيميلات كلها بعمود واحد

حدد العمود

افتح تبويب بيانات

ثم اختر

زر إزالة التكرارات

هذا فى 2007

سهلة جدا

تم تعديل يوليو 4, 2010 بواسطه kemas

[رحااال]

الأخ طارق ، الكود هذا وين احطه بالضبط ؟

الأخ kemas مشكور وان شاء الله بحاول اجرب الطريقة ولو ان الفيديو مااشتغل

[رحااال]

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

وبكذا اصير اسوي تحديد الكل ثم ازالة التكرارات .. الله يعطيكم العافية

طيب آخر سؤال هل اذا حولت الملف الى CSV هل يتغير المحتوى والا مافيه مشكلة ؟!

لأن فيه برنامج للارسال يشترط ملف CSV فقط ولا يقبل الاكسل .. ولكن بعدما حولته تغير المحتوى

[أ / محمد صالح]

أخي الكريم رحال

كل الحلول التي قدمها الإخوة رائعة

والأروع هو الحل الذي قدمه أخونا يحيى حسين ولكن يبدو أنك لم تجربه

فشكرا لكل من ساهم في حل مطلوب الأخ رحال

أخوكم

أبو عبد الله

محمد صالح

[رحااال]

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

اخي العزيز TareQ M ولا يهون باقي الاخوه ،،

اولا طريقتك ممتازة وضبطت معاي وريحتني ,,

لكن واجهتني مشكلة اخرى في نفس الملف فما حبيت افتح موضوع جديد ،

واجهتني مشكلة اخرى وهي كما في الصورة ، انا اريد فقط الايميل ويحذف ماحول الايميل <> وكذلك الكلام تكون الحقول مجرد ايميلات فقط

http://upload.traidnt.net/upfiles/TPQ64583.jpg

[ياسر خليل أبو البراء]

الأخ رحال

ممكن ترفق ملف حتى توفر الجهد والوقت

عندي الحل إن شاء الله

ولكن ارفق ملفك إذا سمحت

[رحااال]

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

يعطيك العافية

[رحااال]

تم ارفاق ملف الاكسل

[طارق محمود]

السلام عليكم

أخي العزيز

أنت لم ترسل ملف الإكسل

ولكن كما هو واضح من الصورة

أن الأسطر الغير مرغوب فيها دائما تحتوي علي علامتي أكبر من ، أصغر من

< .......... >

لذلك أنصحك بعمل فلتر

وتختار الذي يحتوي علي أي منهما

أنظر الفيديو المرفق

remove emails.rar

[ياسر خليل أبو البراء]

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

الأخ رحال كتب التالي

واجهتني مشكلة اخرى وهي كما في الصورة ، انا اريد فقط الايميل ويحذف ماحول الايميل <> وكذلك الكلام تكون الحقول مجرد ايميلات فقط

فهو لا يريد حذف هذه الإيميلات ولكن يريد ما بين <> لتكون الحقول مجرد إيميلات ..

يمكن استخدام المعادلة التالية أخي رحال

=MID(A1;FIND("<";A1)+1;FIND(">";A1)-FIND("<";A1)-1)

ضع المعادلة في الخلية B1

أخوكم أبو البراء

[طارق محمود]

أخي الحبيب ابو البراء

إذا لاحظت الصورة التي أرفقها الأخ رحال

فستجد الإميل دائما متكرر

سطر بصيغته المعروفة

والسطر التالي نفس الإميل ولكن محاطا بالعلامات ويتبعه نص الإميل

تم تعديل يوليو 24, 2010 بواسطه TareQ M

[ياسر خليل أبو البراء]

انظر إلى الصورة في المشاركة رقم 12

[طارق محمود]

السلام عليكم

عندك حق إنت فهمت المطلوب

[ياسر خليل أبو البراء]

أنا أردت فقط التنبيه (وليس التعديل عليكم) أستاذي العظيم طارق

عذراً أستاذي الفاضل إن كنت قد أسأت التنبيه

فوالله لأنتم أساتذتي ولكم الفضل بعد الله فيما وصلت إليه

ولولاكم لما فهمنا ولا عرفنا ولا تعمنا

[طارق محمود]

لا والله ياياسر

أنا أقر فقط بالحقيقة أنت فهمت السؤال افضل

لاعذر ولاشيء

أنت عارف إنك حبيبي

[رحااال]

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

Toofficena.rar

[ياسر خليل أبو البراء]

الأخ الغالي رحال

إليك الملف التالي فيه طلبك إن شاء الله

أخوك أبو البراء

BaraaToRahaal.rar

[رحااال]

اخي العزيز اشكرك على مجهودك انا فتحت الملف حصلت زر Test ضغطت عليه قال لي انه يتعذر تشغيل الماكرو قد يكون متعطل لديك ، رحت لوحدات الماكرو ثم عرض الماكرو ثم تشغيل تطلع لي الرسالة التالية اللي بالمرفق ،،