比对两个excel内容，不一样用红色字体标记

yanfeiliuhen1

yanfeiliuhen1 发表于 2015-12-12 13:55
新表和旧表的数据都不变，是固定，，，只是比较两个表，当两个表对应的内容有差异，则在新表中对应的文本 ...

其实，旧表内容是由svn（假设版本号为1000）上更新下来的目录，而后映射到旧表中；新表内容也是由svn（假设版本号为1001）上更新下来的目录，而后映射到新表中；现在要解决的是，对比这两个表内容，如果有变化，就在新表中对应的文本标记为红色

yanfeiliuhen1

bajifeng 发表于 2015-12-12 13:53
恩，好的，请问：同一个单元格中，数值不同时，用谁的？ 新还是旧？

如果数值不一样，新表和旧表数值都不一样，唯一要变的是新表字体置为红色

bajifeng

yanfeiliuhen1 发表于 2015-12-12 13:55
新表和旧表的数据都不变，是固定，，，只是比较两个表，当两个表对应的内容有差异，则在新表中对应的文本 ...

恩，好的，你这么说，我就明白了，稍等，我去写下代码。

bajifeng

1. Sub 新旧比较() 'bajifeng
   
2. ofn = "old.xls"
   
3. Application.DisplayAlerts = False
   
4. Workbooks.Open ThisWorkbook.path & "" & ofn
   
5. Arr = ActiveWorkbook.ActiveSheet.UsedRange
   
6. ActiveWorkbook.Close
   
7. brr = ActiveWorkbook.ActiveSheet.UsedRange
   
8. 
   
9. For i = 2 To UBound(Arr)
   
10.     For j = 1 To 9
    
11.         If Arr(i, j) <> brr(i, j) Then Cells(i, j).Font.ColorIndex = 3
    
12.     Next
    
13. Next
    
14. Application.DisplayAlerts = True
    
15. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>>>>>>>>>

yanfeiliuhen1

bajifeng 发表于 2015-12-12 14:21

你好，我要的不是这样的，可能我没说明白吧，我重新上传了一张截图，帮忙看下哈，谢谢哈~~~

yanfeiliuhen1

yanfeiliuhen1 发表于 2015-12-15 13:43
你好，我要的不是这样的，可能我没说明白吧，我重新上传了一张截图，帮忙看下哈，谢谢哈~~~

我重新发表了个帖子，请见http://club.excelhome.net/thread-1247474-1-1.html
谢谢 有空帮忙看看哈~~~~

bajifeng

yanfeiliuhen1 发表于 2015-12-15 13:43
你好，我要的不是这样的，可能我没说明白吧，我重新上传了一张截图，帮忙看下哈，谢谢哈~~~

所以，我在之前的楼层有多次疑问向你咨询啊~~~~
你只要把你的要求表达清楚就可以了