Excel - Получить цветовой код

Вы можете использовать этот макрос, чтобы получить код цвета:

 Sub distri_color ()
Дим я
Для я = 1 до 12
Worksheets (1) .Range ("C" & i) .Value = Worksheets (1) .Range ("B" & i) .Interior.Color
Далее я
End Sub 

• 'Замените 12 на количество строк, которые вы хотите использовать.
• 'Замена I в столбце, который вы хотите использовать для результата (цветовой код).
• 'Замените B столбцом, содержащим цвет, который вы хотите отфильтровать.