自己写的用VBA进行两个sheet页中的数据对比

两个sheet页分别命名“Sheet700”，“Sheet800”。
判断"Sheet700”sheet中的数据是否在“Sheet800”中存在，不存在标蓝色。
存在的场合，“Sheet800”sheet中的数据和“Sheet700”的2~41行比较，不一样标注青色，并在最前面标注黄色。

Sub Macro3()

Dim tem, tem1 As String
Dim text1, text2 As String
Dim i As Integer, hang1 As Long, hang2 As Long, lie As Long, maxhang As Long, maxlie As Long
'开始时间 
Dim sngStart As Single
    sngStart = Timer

'底色恢复 
Sheets(1).Select
    Columns("A:A").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1").Select
'底色恢复 
Sheets(2).Select
Rows("2:1009416").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A1").Select
   
'最大行数设定  
maxhang = 250
'最大列数设定
maxlie = 41
For hang1 = 2 To maxhang
     Dim a As Integer
     a = 0
     '第一个sheet中的第一列格的内容  
     tem = Sheets(1).Cells(hang1, 1)
     'MsgBox ("TEM1=" & tem)
     For hang2 = 2 To maxhang
          '第二个sheet中的第一列格的内容
          tem1 = Sheets(2).Cells(hang2, 1)
         '发现相同数据的场合 
         If tem1 = tem Then
            a = 1
            '黄色设定
            Sheets(2).Cells(hang2, 1).Interior.ColorIndex = 6
         'MsgBox ("TEM2=" & Sheets(2).Cells(hang2, 1))
            For lie = 4 To maxlie
                
                text1 = Sheets(1).Cells(hang1, lie)
                text2 = Sheets(2).Cells(hang2, lie)
                
                If text1 <> text2 Then
                'MsgBox ("A" & lie & "=" & Sheets(1).Cells(hang1, lie))
                'MsgBox ("B" & lie & "=" & Sheets(2).Cells(hang2, lie))
                    '青色设定 
                    Sheets(2).Cells(hang2, lie).Interior.ColorIndex = 8
                End If
            Next
         End If
     Next
     '不存在的场合，蓝色设定
     If a = 0 Then
         Sheets(1).Cells(hang1, 1).Interior.ColorIndex = 5
     End If
Next

'保存文档
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
'输出时间差  
MsgBox ("ok,costTime:" & Timer - sngStart)
End Sub