melaad قام بنشر يناير 19, 2022 مشاركة قام بنشر يناير 19, 2022 مطلوب حذف السطور المكررة وترك سطر واحد منهم فقط بمعنى البحث برقم التليفون وحذف السطر المكرر كله وترك سطر واحد فقط انا عندى ملف فيه حوالى 16000 سطر ومحتار فيه ومرفق عينة للمطلوب test.xlsx 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر يناير 19, 2022 أفضل إجابة مشاركة قام بنشر يناير 19, 2022 السلام عليكم ورحمة الله استخدم الكود التالى Sub DelRows() Dim ws As Worksheet, LR As Long Dim x As Integer, i As Long Set ws = Sheets("Sheet1") LR = ws.Range("B" & Rows.Count).End(3).Row For i = LR To 2 Step -1 x = WorksheetFunction.CountIf(ws.Range(Cells(2, 4), _ Cells(i, 4)), Cells(i, 4)) If x > 1 Then ws.Range("D" & i).EntireRow.Rows.Delete End If Next End Sub 4 رابط هذا التعليق شارك More sharing options...
melaad قام بنشر يناير 20, 2022 الكاتب مشاركة قام بنشر يناير 20, 2022 الاستاذ ابراهيم أنا عاجز عن الشكر رابط هذا التعليق شارك More sharing options...
khairi ali قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 20, 2022 بارك الله فيك أستاذنا الفاضل أبراهيم كود رائع رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 20, 2022 السلام عليكم ورحمة الله بارك الله فيكم جميعا ردودكم الطيبة تخجل تواضعى 2 رابط هذا التعليق شارك More sharing options...
abuaish_1978 قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 السلام عليكم استاذ ابراهيم لو تكرمت فى الشيتات بتاعه حضرتك بتاع اولى وثانية تجارى فيه صفحة السرى مطلوب بها كلمة السر لو تكرمت ممكن ترسل الكلمة السر حتى اتابع العمل عليه بانتظام بصراحة جزاك الله خيرا على هذا العمل الممتاز وانا شخصيا استفتد منه كثيرا الرجاء ارسال كلمة السر للشيت رابط هذا التعليق شارك 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.