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

[ahmed_adna]

يسعد مساؤكم جميعا

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

فما الحل ؟؟ ارجو المسااعدة

[جمال عبد السميع]

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

[ahmed_adna]

مشكور اخي الكريم

وكلي امل

مرفق مثال

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

1223.rar

تم تعديل ديسمبر 21, 2012 بواسطه ahmed_adna

[جمال عبد السميع]

إليك أخي ماطلبت

ولكن كيف يتم إزالة كل الأرقام فلو إعتبرنا بعد إزالة ( السالب ) من الرقم المكرر سوف يأخذ منهما رقما واحدا فقط وترك الأخريين فسيبقي رقم من هذه الأرقام

لذلك سوف تبقي أرقام ( 5،10 ،11 ) وليس رقم ( 11) فقط

إزالة المكرر.rar

تم تعديل ديسمبر 21, 2012 بواسطه mahmoud-lee

[عمرو رحيل]

بعد اذن اخى الفاضل / محمود

جرب المرفق ربما يكون فيه ما تريده

Copy of 1223.rar

[ahmed_adna]

اخواني مشكورين على التجاوب معي والرد السريع

لكن للتوضيح

المطلوب هو باعتبار ان لدي ملف يحتوي على حسابات العاملين من ديون

فيكون مثلا لدى احمد دين سابق 15 تكون اشارته بالسالب ومن ثم في الشهر التالي تم دفع الدين فيكون الرقم 15 موجب وهكذا على اشخاص كثيرين

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

[الـعيدروس]

السلام عليكم

بعد اذن الاخوة الاحبه

جرب هذا الكود

Public Sub Ali_Tqrar()

On Error Resume Next

Dim Wh As WorksheetFunction

Set Wh = Application.WorksheetFunction

For c = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

If Cells(c, 1) < 0 Or Cells(c, 1) > 0 Then

'*********************************************************************

' لحذف الأرقام المتشابه بالسالب أو الموجب مثلا -5 و 5 يعتبر تشابه يحذف

If Wh.CountIf(Abs(Range("A1:A" & c)), Abs(Cells(c, 1))) = 1 Then Cells(c, 1).EntireRow.Delete

ElseIf Cells(c, 1) > 0 Then

'*********************************************************************

' لحذف المكرر من الأرقام الموجبه

'If Wh.CountIf(Range("A1:A" & c), Cells(c, 1)) = 1 Then Cells(c, 1).EntireRow.Delete

End If

Next

End Sub

تم تعديل ديسمبر 22, 2012 بواسطه عباد

[ahmed_adna]

مشكور اخي ابو نصار

لكن اريد الية اخرى لا تتعلق بالاكواد

لاني مبتدأ في الاكسل

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

الأخ السائل

أعتقد إن ملف الأستاذ عمرو يؤدي المطلوب

أوضح قليلاً إذا لم يكن يؤدي المطلوب