استخدام الفلترة المتقدمة للحصول على القيم الفريدة فقثط من عمود به عناصر مكررة
ولصقها لعمود مجاور
Range("B1:B111").Clear
Range("b1", Range("A65536").End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B2"), Unique:=True
اكتب تعليقك مع الشكر
0 التعليقات:
إرسال تعليق
اكتب تعليقك مع الشكر