Question

关于excel问题，高手请进！

用excel作了张表，大约1000行，由于每行较长，我想隔一行填充黄色，以便区分，要是手工估计要累个半死，有没有公式或简单的宏可以办到？

Answer 1

最简单的办法就是直接使用“条件格式”，给偶数行填充黄色。做法：

1）选中全部要隔行填色的数据
2）在上面的菜单中选择“格式”>“条件格式”
3）在出现的条件下拉框中选择“公式”，在右边输入下述公式：
=MOD(ROW(),2)=0
4）点下面的“格式”按钮，在“图案”卡中选中你所要的黄色，“确定”
5）点“确定”，这时所有偶数行就被填充上黄色了

公式说明：
MOD(ROW(),2)=0用于取得偶数行。式中MOD是求余数的公式，ROW()用于取得当前行数，2作为除数。当行数除以2的余数为0时，说明该行是偶数行（为1则是奇数行）。

要是你想将奇数行填充颜色，将式中的0改为1就可以了。
你也可以利用上面这个公式，将偶数行的字体、颜色、边框等进行格式设置。

Answer 2

用宏可以实现，给你做了一个，在下面

Sub CHGCOLOR()
Dim I As Integer
For I = 1 To 1000 Step 2
Rows(I).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Next I

End Sub

说明：
CHGCOLOR()是宏名，在EXCEL中调用CHGCOLOR()就可以了，
For I = 1 To 1000 （1000是行数，你可以改成任意行），

.ColorIndex = 6 （6是黄色，你可以改成其他数字就是其他颜色了）

Answer 3

也可以这样做:
加一辅助列,比如A列,在单元格A1里输入1,在A2里输入2,选择这两个单元格,鼠标按住填充柄往下拖,就会出现:
1
2
1
2
1
2
……
（当不能出现以上数据而是序号时，请在拖动的时候按住ctrl键）
然后筛选，把A列中的1（或2）筛选出来，弄上颜色，然后取消筛选，把A列删除掉就行了

Answer 4

一楼写的代码能用，不过有些罗嗦

Sub noky()
Dim i As Integer
For i = 1 To 1000 Step 2
Rows(i).Interior.Color = vbYellow
Next
End Sub

这个比较简单。