将多个工作簿的指定工作表汇总到一个工作薄

东方鸣一 · 发表于 2018-10-22 20:02

想要实现 1、将多个工作簿中的汇总表汇总到一个新的工作簿中；我试了几个网上的VBA，都不全。 2、将多个工作簿中的汇总表汇总到一个新的表中，原各个汇总表可能格式不一样，这个估计有点难，谢谢
着急，麻烦各位高手给编个BVA，谢谢，谢谢

abc123281 · 发表于 2018-10-22 20:35

看了一下汇总要求不明白很难做到合并
1 有一个工作簿（ICU）中的汇总表和其他的不一样表头也不一样所以不知道如何对应如果这个工作簿剔除应该可以合并
2 会不会有重名的如果有如何合并

东方鸣一 · 发表于 2018-10-23 21:57

您好，是这个我就想把各个工作薄里的那个名叫“汇总表”的那个表汇总到一个薄里，使得新的工作薄里有好多汇总表，谢谢，

东方鸣一 · 发表于 2018-10-23 21:58

abc123281 发表于 2018-10-22 20:35
看了一下汇总要求不明白很难做到合并
1 有一个工作簿（ICU）中的汇总表和其他的不一样表头也不 ...

您好，是这个我就想把各个工作薄里的那个名叫“汇总表”的那个表汇总到一个薄里，使得新的工作薄里有好多汇总表，谢谢，

lanbior · 发表于 2018-10-23 22:59

论坛知识树里关于数据库的帖子讲的很不错，好像有这方面的知识，可以看看

liuxi001 · 发表于 2018-10-29 05:40

Excel 多薄多表合并(不限表头位置和顺序)-ExcelVBA程序开发-ExcelHome技术论坛 - http://club.excelhome.net/thread-1441344-1-1.html
试试我的吧，不过你只要求合并工作表名为“汇总表”的内容，所以代码你需要做些许修改，
For Each sh In Wb.Sheets'后面加
if sh.name="汇总表" then

endif
Workbooks(F).Close False'这一句前加endif

a7261969 · 发表于 2018-12-30 11:12

你是要这么汇总

a7261969 · 发表于 2018-12-30 11:12

按照名字还是，卡号

a569421 · 发表于 2019-1-8 17:27

额。。。表格太乱建议统一模板。。。

		自动登录	找回密码
密码			免费注册