مشكلة إزالة الأرقام المكررة

[رحااال]

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

بخصوص مشكلة ازالة التكرارات ودائماً كلما ضغطت على زر إزالة التكرارات يقول لي تم حذف كذا رقم وبقي كذا رقم ونفس الارقام ما تتغير والتكرارات لازالت ولا أدري ما هو السبب ومافائدة هذا الزر اذا كان لا يحذف الخلايا المكررة .. (مرفق صورة من الرسالة)

 

كذلك تم تطبيق أحد الدوال التي ذكرها لنا أحد الإخوة، ولكن كيف يمكن إزالة المكرر والتأكد من ذلك اذا كانت آلاف الأرقام؟

الدالة هي : =SUMPRODUCT(((RIGHT($A1:$A$1;6))=(RIGHT(A1;6)))*1)

أرفقت ملف إكسل (مثال)

مثال-أوفيسنا.xlsx

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

وعليكم السلام

جرب الكود التالي حيث سيقوم الكود باستخراج القيم الفريدة أي الغير مكررة ويضعها في العمود الرابع

Sub Test()
    Dim d As Object, rng As Range, c As Range
    Set d = CreateObject("Scripting.Dictionary")
    Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For Each c In rng
        If c.Value <> "" Then d(Val(c.Value)) = Empty
    Next c
    Range("D1").Resize(d.Count) = Application.WorksheetFunction.Transpose(d.Keys)
End Sub

 

[محب المنتدى]

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

هذا اجتهاد مني

في العمود B ايضاح المكرر وفي العود C حذف المكرر

مثال-أوفيسنا.xlsx

[رحااال]

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

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

الأكواد توضع في محرر الأكواد

اضغط ALT + F11 للدخول لمحرر الأكواد 

من قائمة Insert أدرج موديول جديد Module

قم بنسخ الكود من المشاركة السابقة ثم لصقه في الموديول

ارجع لورقة الإكسيل واضغط ALT + F8 سيظهر لك مربع حواري فيه اسم الماكرو أو الكود Test

انقر على الأمر Run

ستظهر النتائج في العمود الرابع

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

تكمن هذه المشكلة في أن العمود A تم تنسيق الأرقام فيه كنص

لذا يجب أولا تحويلها إلى رقم ب

تحديد جميع النطاق والضغط على مثلث الخطأ الموجود في أي خلية واختيار تحويل لرقم

ثم تطبيق حذف التكرارات من تبويب بيانات

بالتوفيق

[رحااال]

حياك الله أخ محمد

نفس المشكلة بالزر الأيمن تنسيق الخلايا ومن ثم حولتها لأرقام

ونفس المشكلة مرفق الصورة التي تتكرر بالنفس العدد كلما ضغطت على ازالة التكرارات

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

لا أدري ما معنى كلمة (نفس المشكلة) ؟؟؟؟

الصورة المرفقة تدل على أن الاكسل قام بحذف 477 من المكررات وتبقى 1424

بعد أن كان يظهر رسالة لا يوجد مكررات

وهذه صورة نتيجة تحويل الخلايا لأرقام عن طريق زر الخطأ وليس عن طريق تنسيق الخلايا ثم حذف المكررات

[رحااال]

حبيبي الأخ محمد

أسعدك الله

الصورة التي ارفقتها في الموضوع هي تتكرر في كل مرة اقوم بالضغط على ازالة المكررات !! يفترض في الاخير يعطيني صفر

بالنسبة لزر الخطأ لا يظهر زر الخطأ الأصفر حتى اقوم بما ذكرت ..

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

أسعدنا جميعا الله

بالنسبة لعدم ظهور مؤشر الخطأ حاول ضبط اعدادات المعادلات بمثل هذه الاعدادات

ملف -- خيارات - معادلات - الجزء السفلي

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

ومن ثاني مرة يكون عدد المكررات صفر ويخرج الرسالة الأولى أنه لا يوجد مكررات

بالتوفيق