عبدالعزيز محمد قام بنشر يناير 11, 2019 مشاركة قام بنشر يناير 11, 2019 السلام عليكم اخواني في الملف المرفق جدول بسيط عبارة عن عمودين بهما بيانات قد تتكرر في كلا العمودين والمطلوب هو حصر البيانات غير المكررة وبأي شكل حتى نعرف المكرر من غير المكرر Aziz.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 11, 2019 مشاركة قام بنشر يناير 11, 2019 جرب هذا الماكرو Sub Extract_uniques() Dim i% Dim My_rg As Range: Set My_rg = Range("a3:b21") Range("c3").Resize(My_rg.Rows.Count, 1).ClearContents With CreateObject("System.Collections.ArrayList") For i = 1 To My_rg.Cells.Count If Application.CountIf(My_rg, My_rg.Cells(i)) = 1 Then .Add (My_rg.Cells(i).Value) End If Next .Sort Range("c3").Resize(.Count) = Application.Transpose(.ToArray) End With End Sub الملف مرفق Aziz.xlsm 2 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 11, 2019 مشاركة قام بنشر يناير 11, 2019 أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان