如何为B列中的56个单元着色

Question

如何编写代码，通过颜色索引功能-> cells.interior.colorindex

为B列中的56个单元格显示56种颜色

Answer 1

使用以下代码：

Sub colorCells()
     For i = 1 To 56
        Range("B1").Offset(i - 1, 0).Interior.ColorIndex = i
     Next i
End Sub