多薄多表合并(不限表头位置和顺序)

paul1115 · 发表于 2019-4-4 23:02

各位大咖，小弟我是来求助的，帮帮忙！

paul1115 · 发表于 2019-4-5 22:02

呼叫大咖出手相助，感谢！

AaronAT · 发表于 2019-4-8 00:57

paul1115 发表于 2019-4-4 21:44
改成菜单调用窗体会更好些，这样一来就可以省去先把工具拷到指定文件夹里面的麻烦了，直接选择待合并工作表 ...

大概搞了一下，你要的基本功能实现了，细节没有太仔细思考，半夜被你从床上拉起来太困了，先睡了！

liuxi001 · 发表于 2019-4-29 22:55

拆分与合并.zip (98.38 KB, 下载次数: 1275)
代码整理了一下
之前仓促加了一个数组存储数据来源信息，现在去掉了，来源直接写进总表数组。
另外附上拆分代码，比较实用吧。

jjmysjg · 发表于 2019-4-30 11:01

liuxi001 发表于 2019-4-29 22:55
代码整理了一下
之前仓促加了一个数组存储数据来源信息，现在去掉了，来源直接写进总表数组。
另外附上 ...

谢谢分享，
汇总表的表头能自动筛选出来就更好了

liuxi001 · 发表于 2019-4-30 17:50

jjmysjg 发表于 2019-4-30 11:01
谢谢分享，
汇总表的表头能自动筛选出来就更好了

你这个要求就比较苛刻了，在分表中表头不知道在什么位置的情况下是没有办法自动提取各分表中的所有表头的。
如果每个分表的格式都是完全一致的话也就没有必要用这个了，用下面这个吧。

合并多簿中与指定工作表表名和结构相同的工作表.zip (818.64 KB, 下载次数: 275)

jjmysjg · 发表于 2019-4-30 21:16

liuxi001 发表于 2019-4-30 17:50
你这个要求就比较苛刻了，在分表中表头不知道在什么位置的情况下是没有办法自动提取各分表中的所有表头的 ...

谢谢，下来学学

liuxi001 · 发表于 2019-5-4 17:47

lsc900707 发表于 2018-11-14 15:45
鼓励分享，挺一个先！

版主大人见笑了，也算是学习VBA以来一点小的收获

习习儒生 · 发表于 2019-5-4 22:33

多工作簿多表合并汇总

liuxi001 · 发表于 2019-5-6 23:48

拆分与合并（总包含分）.zip (69.22 KB, 下载次数: 227)
把表头匹配的关系改了一下：
24楼，分表表头包含总表表头
30楼，总表表头是分表相似表头的集合，用/或、号分隔的。
貌似这样更合理一些，不至于跑偏得到意想不到的结果。
不过麻烦之处是你需要知道分表之中可能有哪些表头

例如说：我要合并各分表的入学的时间，有的表可能叫入学年度，有的表叫入学时间，有的表又可能叫入学年月。
24楼的方法总表表头a1单元格写成：入学，但是有可能会匹配到分表中叫入学方式之类的数据列
30楼的方法总表表头a1单元格写成：入学年度/入学时间/入学年月，这样可以准确匹配这几个表的数据
各有利弊吧！！！

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

[原创] 多薄多表合并(不限表头位置和顺序)

评分

评分