对比excel2个sheet的数据

步骤1：打开excel，创建sheet 表1，把内容粘贴到表1。（粘贴的时候可以点击右键“选择性粘贴”，只粘贴数据）创建sheet 表2，把内容粘贴到表2.

步骤2：Alt+F11进入VBA环境，右键点击Microsoft Excel，点击创建插入–》模块

步骤3：粘贴代码

Sub 数据对比()
    Dim i As Integer
    Dim j As Integer
    For i = 1 To 280        '备注：表2，对比表21的第1行到第280行
        For j = 1 To 280    '备注：表1，对比表10的第1行到第280行
         If Sheets("表2").Cells(i, 1) = Sheets("表1").Cells(j, 1) Then   '对比表1和表2第1列的数据
            If Sheets("表2").Cells(i, 2) = Sheets("表1").Cells(j, 2) Then    '对比表1和表2第2列的数据
               Sheets("表2").Cells(i, 8) = "相等"   '表1和表2的数据相等时，在表2的第8列标记相等
            End If
         End If
        Next j
    Next i
End Sub