اذهب الي المحتوي
أوفيسنا

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


ahmed_adna

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

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

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

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه mahmoud-lee
رابط هذا التعليق
شارك

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

لكن للتوضيح

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

فيكون مثلا لدى احمد دين سابق 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

تم تعديل بواسطه عباد
رابط هذا التعليق
شارك

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