首先，我们打开一个Excel表（PS：有没有数据都无所谓，我们只是演示隔行换色而已）。如下图：
我们按组合键：【Alt】+【F11】，如下图：
接下来，选择【插入】→【模块】，如下图：
然后，我们输入代码，如下图：
源代码：：
Sub 隔行换色()
Dim h%
h = 2
Do Until Sheet1.Range(\"大众a\公众 & h) = \公众\"大众
Sheet1.Range(\"大众a\"大众 & h & \"大众:\"大众 & \"大众g\"大众 & h).Interior.ColorIndex = 24
h = h + 2
Loop
End Sub
源代码注释版：
Sub 隔行换色()
'上面这行意思：创建一个叫【隔行换色】的方法
Dim h%
'上面这行意思：申明一个变量h
h = 2
'上面这行意思：给刚才的变量h赋值为2
Do Until Sheet1.Range(\"大众a\"大众 & h) = \"大众\"大众
'上面这行意思：直到【a列】的【h行】单元格为空值时，结束
Sheet1.Range(\"大众a\公众 & h & \公众:\公众 & \"大众g\"大众 & h).Interior.ColorIndex = 24
'上面这行意思：给Sheet1表【a列h行】至【g列h行】的单元格上色，颜色是24号
' \"大众a\"大众 & h & \"大众:\"大众 & \"大众g\"大众 & h 看不懂的，看下一行转化过程
' ah:gh → a2:g2 只不过此处的h是个变量，会变革
h = h + 2
'上面这行意思：给h增加2
Loop
'上面这行意思：退出语句
End Sub
'上面这行意思：结束语句
接下来，我们按组合键【Alt】+【F11】切换回Excel表中，【插入】→【形状】→随便找个图形。这个只是用来做点击按钮的，啥图形随意。
右击刚才画的图形，选择【指定宏】
在弹出的窗口【指定宏】中，选择【隔行换色】→【确定】
然后，我们点击刚才画的图形。看效果图：
下面附加Excel中颜色对应的标号，想该什么颜色的，就把代码中的24，修正成对应的标号即可。
备注：如果不记得这个标号图，没紧要，用代码直接天生一个。天生标号图的代码如下：
源代码：
Sub 颜色代码()
For h = 1 To 56
Cells(h, 2) = i
Cells(h, 1).Interior.ColorIndex = h
Next
End Sub
喜好的话，请关注一下我，我会常常更新的。
