EXCEL单元格自动生成不同颜色

你知道EXCEL有多少个颜色吗？用以下代码可以自动排列出颜色。代码如下：Sub 颜色大全()  Dim I%, j%, k%  k = 1  For j = 1 To 16 Step 2    For I = 1 To 7      Cells(j, I).Interior.ColorIndex = k      Cells(j + 1, I) = k      k = k + 1    Next I  Next jEnd Sub

1492074500624520.jpg