ابوشرشر قام بنشر أبريل 8, 2018 مشاركة قام بنشر أبريل 8, 2018 السلام عليكم ورحمة الله وبركاته لدي ملف اكسيل مرتبط بنموذج قوقل فيه بعض الردود المتكررة بمعنى هناك صفوف متشابهه تماماً ومتكررة اريد حذفها والشرط أن تكون متشابهه تماماً في جميع البيانات . .......... سأرفق ملف بذلك للتجربة شكراً لكم مقدماً test.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 8, 2018 مشاركة قام بنشر أبريل 8, 2018 حرب هذا الماكرو Option Explicit Sub Del_row() Dim i As Long Dim lr As Long: lr = Cells(Rows.Count, 1).End(3).Row Range("CV2:CV" & lr).Formula = "=SUMPRODUCT(--(A2&B2&C2=$A$2:A2&$B$2:B2&$C$2:C2))" Range("CV2:CV" & lr).Value = Range("CV2:CV" & lr).Value For i = lr To 2 Step -1 If Cells(i, "CV") > 1 Then Cells(i, "CV").EntireRow.Delete Next Range("CV:CV").ClearContents End Sub الملف مرفق test salim.xlsm 1 رابط هذا التعليق شارك More sharing options...
ابوشرشر قام بنشر أبريل 8, 2018 الكاتب مشاركة قام بنشر أبريل 8, 2018 جزاك الله الجنة اخوي سليم سأجرب الآن جزاك الله الجنة اخوي سليم سأجرب الآن ــــــــــــ اسعدك الله .... ممتاز نجح الكود زادك الله علماً ونفع بك وبعلمك وبارك فيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.