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论坛学习、交流
看你的循环貌似应该是以J列为判断条件
单元格值不为空即赋色
这样的话 应该是行填色哈?
试试把if下面的那句改成这样:
range("j"&i).entirerow.interior.colorindex=27
如有问题请详述
欢迎到ExcelHome论坛学习、交流