Vba 基于单元格值为单元格着色

你能帮我看看我的代码有什么问题吗。 我得到一个错误：应用程序定义的错误或对象定义的错误。 我想根据单元格值为单元格着色。 如果单元格值等于单元格-1值，则单元格应为红色。 此行出错：如果单元格（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 

---

如果您使用的是Excel2007以上版本，则可以使用条件格式，而不是VBA，这更易于使用。它为您提供了允许您设置规则的对话框。

当

i=1

时，您将遇到

单元格（i-1，3）

的问题，因为没有行0。