1、首先打开excle表格,进入VBA的编程界面,新建一个子程序loopcolor

2、然后是定义几个变量,都是整数型。Dim myrow As Integer Dim mycol As Integer Dim mycolor As Integer

3、为mycolor赋值。mycolor = 0

4、对myrow进行循环。

5、在myrow的循环里面再嵌套另外一个循环mycol

6、再循环里面,分别选中单元格,并为这些单元格填充颜色。

7、最后运行这个程序,然后回到excle的界面,就可以看到被填充的颜色块了。
