Sub 比较表()
rowStart = Range("B1").Value
rowEnd = Range("D1").Value
CellStart = Range("B2").Value
CellEnd = Range("D2").Value
For i = rowStart To rowEnd
h = 0
m = ""
For k = CellStart To CellEnd
If Sheet2.Cells(i, k).Value <> Sheet1.Cells(i, k).Value Then
h = 1
m = m + CStr(Sheet1.Cells(1, k).Value) + "[" + CStr(Sheet1.Cells(i, k).Value) + ":" + CStr(Sheet2.Cells(i, k).Value) + "]" & Chr(10)
Sheet1.Cells(i, k).Interior.Color = RGB(255, 0, 0)
End If
Next
If h = 1 Then
Sheet1.Cells(i, CellEnd + 1).Value = "有差"
Sheet1.Cells(i, CellEnd + 2).Value = m
End If
Next
End Sub
Excel 两个sheet比较差异代码
最新推荐文章于 2024-07-29 10:38:28 发布
这是一个使用VBA编写的宏,用于比较Excel中两个工作表(Sheet1和Sheet2)的数据差异。宏分为'比较表'和'清除'两个部分。'比较表'会标识出不同单元格并填充红色背景,同时记录差异信息;'清除'宏则会清除之前标记的差异和信息。
摘要由CSDN通过智能技术生成