VBA_EXCEL中的判断问题
我要判断两格单元格的内容是否相同。相同，什么也不做，继续，不相同，标出为红色。
程序如下：
Private Sub CommandButton3_Click()
For i = 1 To 1000
If Worksheets("Sheet1").Cells(i, 1).Value = "" Then
Exit For
ElseIf Worksheets("Sheet1").Cells(i, 2).Value = Worksheets("Sheet2").Cells(i, 2).Value Then
Worksheets("Sheet5").Cells(i, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value
Worksheets("Sheet5").Cells(i, 2).Value = Worksheets("Sheet1").Cells(i, 2).Value
Worksheets("Sheet5").Cells(i, 4).Value = Worksheets("Sheet2").Cells(i, 1).Value
Worksheets("Sheet5").Cells(i, 5).Value = Worksheets("Sheet2").Cells(i, 2).Value
Else
Worksheets("Sheet5").Cells(i, 1).Value = Worksheets("Sheet1").Cells(i, 1).Value
Worksheets("Sheet5").Cells(i, 2).Value = Worksheets("Sheet1").Cells(i, 2).Value
Worksheets("Sheet5").Cells(i, 4).Value = Worksheets("Sheet2").Cells(i, 1).Value
Worksheets("Sheet5").Cells(i, 5).Value = Worksheets("Sheet2").Cells(i, 2).Value
Worksheets("Sheet5").Cells(i, 1).Font.ColorIndex = 3
End If
Next i
End Sub
条件：当在sheet1中的Cells(1,2)和sheet2中的Cells(1,2)的值都为0时，
结果:sheet5中Cells（1,1）为红色.
正确的执行结果应该是：什么也不做。
请高手看看。
[解决办法]
我这边试了，不是红色
