【原】循环填充数字同时填充颜色

如下，Excel中可以使用填充，输入一系列数字。

使用VBA也可以达到如下效果。

下面的一段代码可以实现在A列填充1到56

同时在B列填充颜色。

Private Sub CommandButton1_Click() For i = 1 To 56 Cells(i, 1) = i Cells(i, 2).Interior.ColorIndex = i    NextEnd Sub

Cell(i,1)指的是第1列第i行，而i从1到56循环。

Cell(i,2)指的是第2列第i行，而i从1到56循环，Interior.colorindex就是单元格填充颜色，用56种颜色的一种颜色进行填充，其中录制一个宏填充单元格颜色，即可以查出此段代码。

而colorindex这个颜色编号最多运行多少个颜色呢？

如果不知道，可以写一段代码，出错时显示当前i的编号，即可以显示最大的值。

如下代码，使用on error goto aa,如果出错跳转到aa对应的代码。显示当前出错时的编号。

Private Sub CommandButton1_Click()On Error GoTo aa For i = 1 To 999 Cells(i, 1) = i Cells(i, 2).Interior.ColorIndex = i Nextaa: MsgBox "出错了，当前编号是" & iEnd Sub

可以看出，57就出错了，最多支持56

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。