VBA_EXCEL中的判断问题

Question

我要判断两格单元格的内容是否相同。相同，什么也不做，继续，不相同，标出为红色。
程序如下：
Private Sub CommandButton3_Click()For i = 1 To 1000If Worksheets("Sheet1").Cells(i, 1).Value = "" ThenExit ForElseIf 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 IfNext iEnd Sub条件：当在sheet1中的Cells(1,2)和sheet2中的Cells(1,2)的值都为0时，
结果:sheet5中Cells（1,1）为红色.
正确的执行结果应该是：什么也不做。
请高手看看。

Answer 1

sheet1:
A       B
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10
11 11
12 12
13 13
14 14
15 15
16 16
17 17
18 17
19 18
20 20
sheet2
A       B
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10
11 11
12 12
13 13
14 14
15 15
16 16
17 17
18 17
19 18
20 19
执行结果：
sheet5:
A       B               D       E
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
5 5 5 5
6 6 6 6
7 7 7 7
8 8 8 8
9 9 9 9
10 10 10 10
11 11 11 11
12 12 12 12
13 13 13 13
14 14 14 14
15 15 15 15
16 16 16 16
17 17 17 17
18 17 18 17
19 18 19 18
20 20 20 19
其中，1——15标红。17——20标红。
菜鸟求指导。谢谢

Answer 2

上面表述不清楚，嘿嘿，
sheet1：
A       B
1 1
10 1
sheet2：
A       B
1 1
10 1
执行结果：
sheet5:
A       B
1 1
10 1
求解惑？？？