You can make use of this macro to get the color code:
For i = 1 To 12
Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color
- 'Replace 12 by the number of rows you want to use.
- 'Replacing the I in the column that you want to use for the result (color code).
- 'Replace the B by the column containing the color you want to filter.
This document, titled « Excel - Get color code », is available under the Creative Commons
license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM