رحااال قام بنشر أغسطس 18, 2023 مشاركة قام بنشر أغسطس 18, 2023 السلام عليكم ورحمة الله وبركاته بخصوص مشكلة ازالة التكرارات ودائماً كلما ضغطت على زر إزالة التكرارات يقول لي تم حذف كذا رقم وبقي كذا رقم ونفس الارقام ما تتغير والتكرارات لازالت ولا أدري ما هو السبب ومافائدة هذا الزر اذا كان لا يحذف الخلايا المكررة .. (مرفق صورة من الرسالة) كذلك تم تطبيق أحد الدوال التي ذكرها لنا أحد الإخوة، ولكن كيف يمكن إزالة المكرر والتأكد من ذلك اذا كانت آلاف الأرقام؟ الدالة هي : =SUMPRODUCT(((RIGHT($A1:$A$1;6))=(RIGHT(A1;6)))*1) أرفقت ملف إكسل (مثال) مثال-أوفيسنا.xlsx رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 18, 2023 مشاركة قام بنشر أغسطس 18, 2023 وعليكم السلام جرب الكود التالي حيث سيقوم الكود باستخراج القيم الفريدة أي الغير مكررة ويضعها في العمود الرابع 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 3 1 رابط هذا التعليق شارك More sharing options...
محب المنتدى قام بنشر أغسطس 18, 2023 مشاركة قام بنشر أغسطس 18, 2023 وعليكم السلام ورحمة الله وبركاته هذا اجتهاد مني في العمود B ايضاح المكرر وفي العود C حذف المكرر مثال-أوفيسنا.xlsx 1 رابط هذا التعليق شارك More sharing options...
رحااال قام بنشر أغسطس 18, 2023 الكاتب مشاركة قام بنشر أغسطس 18, 2023 أخي ياسر شكراً وجزاك الله خيراً، لكن لا أعرف كيف أطبق هذا الكود، وضعته في الخلية ولم يحدث شيء.. حبذا تطبقه على ملف الاكسل الذي ارسلته وترفقه وشكرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 18, 2023 مشاركة قام بنشر أغسطس 18, 2023 الأكواد توضع في محرر الأكواد اضغط ALT + F11 للدخول لمحرر الأكواد من قائمة Insert أدرج موديول جديد Module قم بنسخ الكود من المشاركة السابقة ثم لصقه في الموديول ارجع لورقة الإكسيل واضغط ALT + F8 سيظهر لك مربع حواري فيه اسم الماكرو أو الكود Test انقر على الأمر Run ستظهر النتائج في العمود الرابع 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 20, 2023 مشاركة قام بنشر أغسطس 20, 2023 تكمن هذه المشكلة في أن العمود A تم تنسيق الأرقام فيه كنص لذا يجب أولا تحويلها إلى رقم ب تحديد جميع النطاق والضغط على مثلث الخطأ الموجود في أي خلية واختيار تحويل لرقم ثم تطبيق حذف التكرارات من تبويب بيانات بالتوفيق رابط هذا التعليق شارك More sharing options...
رحااال قام بنشر أغسطس 22, 2023 الكاتب مشاركة قام بنشر أغسطس 22, 2023 حياك الله أخ محمد نفس المشكلة بالزر الأيمن تنسيق الخلايا ومن ثم حولتها لأرقام ونفس المشكلة مرفق الصورة التي تتكرر بالنفس العدد كلما ضغطت على ازالة التكرارات رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 22, 2023 مشاركة قام بنشر أغسطس 22, 2023 لا أدري ما معنى كلمة (نفس المشكلة) ؟؟؟؟ الصورة المرفقة تدل على أن الاكسل قام بحذف 477 من المكررات وتبقى 1424 بعد أن كان يظهر رسالة لا يوجد مكررات وهذه صورة نتيجة تحويل الخلايا لأرقام عن طريق زر الخطأ وليس عن طريق تنسيق الخلايا ثم حذف المكررات رابط هذا التعليق شارك More sharing options...
رحااال قام بنشر أغسطس 22, 2023 الكاتب مشاركة قام بنشر أغسطس 22, 2023 حبيبي الأخ محمد أسعدك الله الصورة التي ارفقتها في الموضوع هي تتكرر في كل مرة اقوم بالضغط على ازالة المكررات !! يفترض في الاخير يعطيني صفر بالنسبة لزر الخطأ لا يظهر زر الخطأ الأصفر حتى اقوم بما ذكرت .. رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 23, 2023 مشاركة قام بنشر أغسطس 23, 2023 أسعدنا جميعا الله بالنسبة لعدم ظهور مؤشر الخطأ حاول ضبط اعدادات المعادلات بمثل هذه الاعدادات ملف -- خيارات - معادلات - الجزء السفلي ووالطبيعي فعلا أن يتم حذف المكررات في أول مرة ومن ثاني مرة يكون عدد المكررات صفر ويخرج الرسالة الأولى أنه لا يوجد مكررات بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان