VBA 颜色代码大全？

Sub VBA颜色代码()

For i = 1 To 56

    Cells(i, 1).Interior.ColorIndex = i

    Cells(i, 2) = Cells(i, 1).Interior.Color 'Color颜色

    Cells(i, 3) = i 'ColorIndex索引号

Next

End Sub