Excl数据对比

Sub 数据对比()

    Dim i As Integer

    Dim j As Integer

    For i = 1 To 836 '1

        For j = 1 To 744 '2

         If Sheets("1").Cells(i, 2) = Sheets("2").Cells(j, 2) Then

            If Sheets("1").Cells(i, 6) = Sheets("2").Cells(j, 6) Then

               Sheets("1").Cells(i, 9) = "已存在" '存在时进行标记

            End If

         End If

        Next j

    Next i

End Sub