关于VBA的问题: 我想把第J列中不等于0的单元格填充为黄色,问题补充中的语句怎么把第J列都填充黄色。

Sub 核查历史()
Dim i As Integer
For i = 3 To Range("A65536").End(xlUp).Row
If Range("J" & i) <> " 0" Then
Range("J" & i).Interior.ColorIndex = 27
End If
Next i
End Sub

第1个回答  2011-12-14
你究竟是要填充列 还是填充行的颜色啊

看你的循环貌似应该是以J列为判断条件
单元格值不为空即赋色
这样的话 应该是行填色哈?

试试把if下面的那句改成这样:
range("j"&i).entirerow.interior.colorindex=27

如有问题请详述
欢迎到ExcelHome论坛学习、交流

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网