اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

أسعد الله أوقاتكم ..

لدي قاعدة بيانات لأرقام جوال بالآلاف لكن أحتاج أن ألغي الأرقام المكررة آلياً ..

هل يوجد طريقة من أكسل أو برنامج معين لذلك ..

و أشكر لكم توجيهكم

قام بنشر

السلام عليكم

على فرض ان العمود A يحتوى على الارقام

Sub delduplicates()
Columns(1).EntireColumn.Insert
Range("B1", Range("B65536").End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
Columns(2).EntireColumn.Delete
End Sub

قام بنشر

أخي أبو أسامة

:clapping: بسم الله ما شاء الله :clapping:

عمل رائع لكني أطلب منك أن تفصل طريقة عمل الكود

ولو أمكن بالتفصيل الممل لأنه كود صغير ويقوم بعل رائع

والسلام ختام :cool2:

  • 4 weeks later...
قام بنشر

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

هل ممكن نطور الموضوع كما يلى:

عندى أرقام فى A وكذالك أرقام فى B

واريد مطابقة الارقام فى A مع الارقام فى B

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

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

هل ممكن ان اجد الكود المناسب

مرفق جدول لتوضيح الموضوع

BI.rar

قام بنشر

السلام عليكم

بعد إذن أخي أسامة أرد أنا

أولا : ممكن عمل الموضوع بنفس الفكرة بدون أكواد من قوائم الإكسل مع الشرح لأخينا office 2003

وذلك لتلافي صف العنوان كالآتي:

1- يتم إعطاء عنوان للنطاق المطلوب وعمل نسخة من هذا العنوان في مكان آخر

وليكن في المثال E7:F7 في الحالة الأولي وH7 في الحالة الثانية

2- يتم تعليم النطاق المطلوب

3- ثم من Data

Filter

Advance Filter

مع إختيار Copy to another location

وكذا إختيار Unique records only

وأيضا إختيار المكان الآخر المراد عمل النسخ الغير مكررة فيه

وهكذا تحصل علي نسخة غير مكررة مما تريد في مكان آخر ثم تحذف البيانات الأصلية نهائي

في المثال المرفق ممكن عمل الفلتر أكثر من مرة

(1) في حال تكرار التليفون والإسم أي للحصول مثلا علي نفس الرقم مرتين في حال تسجيل شخصين عليه

(2) في حال أنك تريد معرفة تكرار التليفون فقط كما أشرت

ثانيا : بالنسبة للمثال الذي أرفقته انت ممكن إستخدام كود الأستاذ أسامة بعد عمل عنوان للعمود وليكن Tel كما بالمرفق ايضا وسوف لايكون هناك إختلاف

طارق

ttts2.rar

post-1148-1233415219.jpg

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information