بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'حذف اسماء و ارقام المكرره'.
تم العثور علي 1 نتيجه
-
تم رفع هذا الكود فى مشاركة منفصله كيفية منع تكرار الأرقام والأسماء حتى لا ننسى هذه المشاركة من الفاضل ا / asmo200666 Sub DeleteDups() Dim x As Long Dim LastRow As Long LastRow = Range("A65536").End(xlUp).Row For x = LastRow To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then Range("A" & x).EntireRow.Delete End If Next x End Sub مرفق الملف و الشرح منع المتكررات بالكود الغاء الصفوف التى بها تكرار فى العمود A اول باول Don__t_dupplicate.rar و لا تنسونا من صالح الدعاء تحياتى