vba-实现两个sheet比较

Sub 将sheet1中没有sheet2也有的加标记A()
  Dim i As Integer, j As Integer
  For i = 1 To 2880  'Worksheets("Sheet1").Cells(行,列) 和 Sheet1.Cells(行,列)等效
     For j = 1 To 42
         If Sheet11.Cells(i, j) <> Sheet12.Cells(i, j) Then  '两表的比较列——条件
            Sheet12.Cells(i, j).Interior.ColorIndex = 3
         End If
     Next
  Next
End Sub