基于细胞值的颜色细胞

Question

你能帮我解决一下我的代码出了什么问题。 我收到一个错误：应用程序定义或对象定义错误。 我想根据单元格值为单元格着色。 如果单元格值等于单元格1值，则单元格应为红色。 此行出错：If Cells（i，2）.Value = Cells（i - 1,3）.Value Then

谢谢

Sub colorcells()
ThisWorkbook.Worksheets("Sheet1").Activate
Range("A1").Select
    Dim i As Long
    lastrow = Cells(Rows.Count, "B").End(xlUp).Row
    For i = 1 To lastrow
        If Cells(i, 2).Value = Cells(i - 1, 3).Value Then
            Cells(i, 1).Interior.ColorIndex = 3
        End If
    Next i
End Sub 

Answer 1

如果您使用的是Excel 2007，则可以使用条件格式，而不是使用VBA，这样更容易使用。它为您提供了允许您设置规则的对话框。