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