التفوق - الحصول على رمز اللون

يمكنك الاستفادة من هذا الماكرو للحصول على رمز اللون:

 distri_color ()
خافت أنا
لأني = 1 إلى 12
أوراق العمل (1) .Range ("C" & i) .Value = أوراق العمل (1) .Range ("B" & i) .Interior.Color
بعدها انا
نهاية الفرعية 

• استبدل 12 بعدد الصفوف التي تريد استخدامها.
• استبدال الرقم I في العمود الذي تريد استخدامه للنتيجة (رمز اللون).
• استبدل حرف B بالعمود الذي يحتوي على اللون الذي تريد تصفيته.