Excel - Obțineți codul de culoare

Puteți utiliza această macrocomandă pentru a obține codul de culoare:

 Sub distri_color ()
Dim
Pentru i = 1 până la 12
Foaie de lucru (1). Rang ("C" & i) .Value = Foi de lucru (1) .Range ("B" & i) .Interior.Color
Apoi eu
End Sub 

• "Înlocuiți 12 cu numărul de rânduri pe care doriți să le utilizați.
• "Înlocuirea I în coloana pe care doriți să o utilizați pentru rezultatul (cod de culoare).
• "Înlocuiți B cu coloana care conține culoarea pe care doriți să o filtrați.