判断工作簿副本改动并填充警戒色，见说明，多谢！

makelot

工作簿A有很多工作表，每张表又有很多数据。工作簿B是A的副本，后来做了少许改动（只是某些工作表上的数据有所改变动，工作表名称(标签)和原来一样，不会改动，也不会删除，只是工作表排列顺序可能会有所变动），A和B放在同一个文件夹下。
求VBA代码，看看B里面都是哪些表的哪些单元格内容更改了，并将更改的单元格填充黄色警示。望高人帮助，不胜感激！

makelot

这是我刚才编的小程序，运行到半截中断说是类型不匹配，不知怎么回事？
不过从检查过的部分结果看，还可以。
我再试一次，欢迎大家完善！如果B又插入了一张新表，怎么办？

1. Sub Check() '正副本都要打开
   
2.     Dim sht As Worksheet, cel As Range
   
3.     For Each sht In Worksheets
   
4.         For Each cel In sht.UsedRange
   
5.             If cel.Value <> Workbooks("A").Worksheets(sht.Name).Cells(cel.Row, cel.Column).Value Then
   
6.                 cel.Interior.Color = vbYellow
   
7.             End If
   
8.         Next cel
   
9.     Next sht
   
10. End Sub

复制代码

makelot

干脆加一句 On Error Resume Next 一切OK！

makelot

1. Sub Check()
   
2.     Dim sht As Worksheet, cel As Range
   
3.     On Error Resume Next
   
4.     For Each sht In Worksheets
   
5.         For Each cel In sht.UsedRange
   
6.             If cel.Value <> Workbooks("A").Worksheets(sht.Name).Cells(cel.Row, cel.Column).Value Then
   
7.                 cel.Interior.Color = vbYellow
   
8.             End If
   
9.         Next cel
   
10.     Next sht
    
11. End Sub

复制代码