Excel - макрос для отримання еквівалентних числових кодів для кольорів

Цей макрос дозволяє отримувати код кольору, його можна змінювати на зручність:

 Sub distri_color () Dim Lign As Integer Для Lign = 1 до 12 листів (1) .Range ("C" & Lign) .Value = Worksheets (1) .Range ("B" & Lign) .Interior.Color Sub 

• 'Замінити 12 на кількість рядків, які потрібно обробити.
• 'Замінити "C" на стовпець, який потрібно використати для результату (код кольору).
• 'Замініть "B" на стовпець, який містить відфільтрований колір.