根据像元值对像元进行着色

Question

您能帮我代码的问题吗？ 我收到一个错误：应用程序定义或对象定义的错误。 我想根据一个单元格值给一个单元格上色。 如果像元值等于像元1的值，则像元应为红色。 这行错误：如果Cells（i，2）.Value = Cells（i-1，3）.Value然后

谢谢

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，这更容易使用。 它为您提供了一个对话框，允许您设置规则。