工作簿汇总，工作表汇总合并，多文件汇总合并通用代码支持多层子文件夹

源远鸢 · 发表于 2019-3-17 10:47

opiona 发表于 2019-3-16 23:20
请仔细看看我写的东西，每个字都是有用的

果然！是我理解有误，我以为“分表标题所在行”就是在图里这张表的第三行写上分表里需要的标题，这里一改全解决了。谢谢老师！

wiscocjh · 发表于 2019-3-20 10:57

楼主是真大神！！

10307951261 · 发表于 2019-3-20 22:06

感谢分享！

ynh430 · 发表于 2019-3-21 14:34

希望有用啊，

ynh430 · 发表于 2019-3-21 14:57

太棒了，点赞

mxscgwh · 发表于 2019-3-21 15:59

太棒了，点赞

chenjianguo · 发表于 2019-3-24 08:34

您发的汇总有很大的用处，太好了！谢谢您了！

wwsse345 · 发表于 2019-3-24 08:45

谢谢分享，收藏备用。

redtxd · 发表于 2019-3-25 16:45

楼主太强大了，谢谢！

zycaibin · 发表于 2019-3-26 19:42

老师，您好！
有个问题想请教，看行不？
总公司有一个汇总总表，一个工作簿分为多个工作表
每个分公司分别按总公司下发模板工作簿填表，然后汇总给总公司
需要将每个分公司上交的数据粘贴到一个总公司汇总工作簿中进行汇总根据网上提供多簿同名工作表合并VBA代码，要删除汇总工作簿中的原有同名工作表，在网上搜索了很久也没有找到解决的办法，想请您给修改一下
想达到的目的是：将分公司工作簿中工作表名与汇总工作簿中同名的工作表简单复制到汇总工作簿中同名工作表中，而不是要先删除汇总工作簿中原有工作表再复制分公司的工作表的内容

即If sh.Name <> ActiveSheet.Name Then sh.Delete该如何修改，修改该段代码后，其他代码是否也需要修改
谢谢
您写的第7个“7_多工作簿多个工作表，全部数据汇总（工作簿内多个工作表，每个的格式，标题不同）”需要指定标题行相同，但我的问题是标题行不同，且可以将标题一起复制，我的附件中的代码唯一不能达到目的就是有段代码要先删除汇总工作簿中的原有工作表就不能用了

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

[原创] 工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹

[原创] 工作簿汇总，工作表汇总合并，多文件汇总合并通用代码支持多层子文件夹