两个excel表格如何对比出不同的地方

Question

如题所述

Answer 1

给出如下图表格式（建议第一列第一行数据不为空，两个工作表分别为sheet1、sheet2）：

运行以下VBA代码：

Sub imS()

Sheet1.Activate

For R = 1 To Range("A1").End(xlDown).Row

For C = 1 To Range("A1").End(xlToRight).Column

If Cells(R, C).Value <> Sheets(Sheet2).Cells(R, C).Value Then

'FINDME Q2124102

Cells(R, C).Interior.Color = RGB(31, 162, 195)

End If

Next

Next

End Sub

'----如果两个表对应单元格内容不一致，标注背景色----