Excel - Získejte barevný kód

Toto makro můžete použít k získání barevného kódu:

 Sub distri_color ()
Dim i
Pro i = 1 až 12
Pracovní listy (1) .Range ("C" a i). Hodnota = Pracovní listy (1) .Range ("B" a i) .Interior.Color
Příště já
End Sub 

• 'Nahraďte 12 počtem řádků, které chcete použít.
• 'Nahrazení I ve sloupci, který chcete použít pro výsledek (kód barvy).
• 'Nahraďte B sloupcem obsahujícím barvu, kterou chcete filtrovat.