Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 7262|回复: 6

VBA对比两个工作薄的多列数据差异并整行提取汇总

[复制链接]
发表于 2019-7-24 14:44 | 显示全部楼层 |阅读模式
10学分
本帖最后由 peter0086 于 2019-7-30 09:53 编辑

请各位VBA大神帮忙,非常感谢,谢谢!

要求:
对比设计文件1和制造文件2的B、C、D三列数据差异,能够将有差异整行提取到另外一个表中(能分类显示文件1或文件2的差异),因每一行的数据是对应的,所以只要B列、C列、D列对比出的数据有任一单元格内容不一样都要将整行提取出来,其他列的数据不用考虑。因为表格数据较多,此表只选择了一小部分,所以行数多少不一定,列数是固定的。从第2行开始对比。
工作簿设计文件1和制造文件2内都有6张不同分类的工作表。每张表都相应进行对比,有差异整行提取至新工作薄下相应类别的工作表中。
汇总到新的表时,能将对比的数据分类显示,比如显示设计文件1与制造文件2相比的差异行,并将有差异的单元格进行不同颜色填充。
两份文件中可能有B、C、D列某一单元格内容不一样,也有可能是三列都不一样。


VBA 程序.zip

67.38 KB, 下载次数: 30

最佳答案

查看完整内容

我按照自己的想象写了一个,你看看效果。主要是我不知道你想要的比较结果是什么样的格式排列。 下面两行代码需要根据你自己的路径做适当修改才能运行: Set wb1 = Workbooks.Open("C:%users\fanyoulin\Downloads\VBA 程序\VBA 程序\设计文件1.xlsx") Set wb2 = Workbooks.Open("C:%users\fanyoulin\Downloads\VBA 程序\VBA 程序\制造文件2.xlsx") 代码在第一个表的按钮里面
发表于 2019-7-24 14:44 | 显示全部楼层

使用道具 举报

 楼主| 发表于 2019-7-25 10:30 | 显示全部楼层

使用道具 举报

 楼主| 发表于 2019-7-25 11:06 | 显示全部楼层
此帖仅作者可见

使用道具 举报

发表于 2019-7-25 13:29 | 显示全部楼层
此帖仅作者可见

使用道具 举报

 楼主| 发表于 2019-7-25 15:19 | 显示全部楼层
此帖仅作者可见

使用道具 举报

发表于 2021-8-13 08:27 | 显示全部楼层
此帖仅作者可见

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-25 07:06 , Processed in 0.504391 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表