حدف الأسطر المتكررة بشرط

[ابو المنذر]

السلام عليكم

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

الملف ضمن المرفقات

وشكرا مسبقا

333----modif.xlsx

[سليم حاصبيا]

جرب هذا الكود

Sub Remove_Similar()
ActiveSheet.Range("A1").CurrentRegion.RemoveDuplicates _
Columns:=Array(4, 5, 11), Header:=1
     
End Sub

 

[ابو المنذر]

تحية طي اخي سليم حاصبيا

لكن للاسف الكود فيه مشكلة 

لابد على الكود ان يقوم بحدف سطرين او اربعة او ستة........ وهدا حسب تكرار المبلغ الموجود في العمود 13 

وحتى يكون المبلغ  المكرر في الخانة 13 لابد من توفر الشروط التالية 

ان يكون الرقم الموجود في العمودين 4 و 5 هو نفسه

وكذلك تحقق شرط اخر هو كل مبلغ مكرر في العمود 13 يقابله نفس C او D

الملف المرفق يحتوي على شرح في الورقة التانية للملف

333----modif.xlsx

[سليم حاصبيا]

اين تجد التكرار في الصورة اذا كان العددين بنفس القيمة لكن واحد سالب والآخر موجب (هذا لا يعني انهما متساوين)

لذلك تركت انا  العامود 13  (M) بدون حذف التكرارات منه

[ابو المنذر]

صحيح اخي قصدي المبلغ السالب يدهب مع المبلغ الموجب  و بالتالي يحذف السطرين

اتمنى انك فهمت قصدي

شكرا على اهتمامك ....انتظر حل منك

 

 

 

[سليم حاصبيا]

تم معالجة الأمر

1- الـشيت  Salim  هي مثال لما يفوم به الماكرو Do it  ( الـشيت  Salim هي نسخة طبق الأصل عن الشيت 1999 ) للتجربة فقط
    تم ادراج هذه الصفحة حفاظاً على البيانات الاساسية  لأنه في حال كان المطلوب غير ذلك لا تتأثر البيانات الاساسية في الشيت 1999   (لا يمكن التراجع عما يفعله اي ماكرو بواسطة الأمر  Undo )

الكود

Option Explicit
Dim ro As Long
Dim i As Long
Sub Do_it()
Remove_Minus
Remove_Similar
End Sub
'++++++++++++++++++++++
Sub Remove_Minus()
With Sheets("salim")
ro = .Cells(Rows.Count, "M").End(3).Row
 For i = 2 To ro
  If IsNumeric(Cells(i, "M")) Then
   Cells(i, "M") = Abs(Cells(i, "M"))
  End If
Next
End With
End Sub
'++++++++++++++++++++++++
Sub Remove_Similar()
 Sheets("salim").Range("A1").CurrentRegion.RemoveDuplicates _
Columns:=Array(4, 5, 11, 13), Header:=1
    
End Sub

الملف مرفق

Remove_Dup.xlsm

[ابو المنذر]

شكرا على الاهتمام  اخي

 

[ابو المنذر]

السلام عليكم

عندي  جدول يتكون من 15 عمود   و  56000 سطر او أكثر

وداخل الجدول توجد قيم في العمود 14 متكررة اي مزدوجة بالموجب و السالب

اريد محي الأسطر أين توجد هده القيم المتكررة بشرط

الشرط الأول : إدا كانت لهم نفس القيمة في العمود 11

الشرط الثاني : إدا كانت لهم نفس القيمة في العمود 14

الشرط الثالث : أن القيمة الموجودة في العمود 14 مرة تكون سالبة و مرة تكون موجبة

اي سالب مع موجب = 0 و التالي يتحقق شرط

تجدون رفقة هدا الطلب ملف كمثال .... من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات

ninos06.xlsx

[ابو المنذر]

صحيح الموضوع مكرر لكن طرح المشكلة هده المرة مختلف عن الموضوع الأول

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

وشكرا