【VBA】判断是否相等

Public Sub test2()
Dim i As Integer
Dim one As String, two As String, sub_two As String

For i = 3 To 25461
 one = Cells(i, "A").Text
 two = Cells(i, "B").Text
 If one <> two Then
 
 sub_two = Left(two, Len(two) - 4)
If one <> sub_two Then
Cells(i, "B").Interior.ColorIndex = 6
Cells(i, "A").Interior.ColorIndex = 6
End If
 End If

 Next
End Sub