Question

EXCEL VBA关于条件实现改变单元格颜色求助

如图，我想一步实现同行中若A1<E1则把单元格A1填充为红色，若大于则为绿色，A1:C1跟E1比较，
A2:C2跟E2比较同理，可以一步实现吗，A1:C4,每行的每一个值和E同行的比较，改变单元格颜色，
用VBA怎么写，万分感谢

Answer 1

亲，代码如下：

Sub ts()
Dim rg As Range
Dim r As Long
r = Columns("A:C").SpecialCells(xlLastCell).Row
For Each rg In Range("A1:C" & r)
    If rg < Range("E" & rg.Row) Then
        rg.Interior.Color = RGB(255, 0, 0)
    Else
        rg.Interior.Color = RGB(146, 208, 80)
    End If
Next
End Sub

Answer 2

用条件格式不就好了

追问

条件格式是可以，要是很多行的话，要重复很多次吧？所以觉得这样可以一步完成