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

thtfzhaobo · 发表于 2019-5-10 16:07

新手，支持分享

liuxi001 · 发表于 2019-5-10 17:05

thtfzhaobo 发表于 2019-5-10 16:07
新手，支持分享

向大佬学习

liuxi001 · 发表于 2019-5-18 23:54

本帖最后由 liuxi001 于 2019-5-19 12:21 编辑

最近更新，修改了合并部分表头判断代码，加了几个拆分的。。。

liuxi001 · 发表于 2019-6-2 02:17

拆分与合并.zip (92.23 KB, 下载次数: 222)
修复拆分的几处BUG，增加本工作簿中工作表的合并。多簿合并改成窗口选择文件夹的形式。
所有代码修改成可以跨簿使用，只需要把这个工作打开就行了。

microyip · 发表于 2019-6-2 11:56

liuxi001 发表于 2019-5-18 23:54
最近更新，修改了合并部分表头判断代码，加了几个拆分的。。。

http://club.excelhome.net/thread-1310803-1-1.html 多表多工作簿汇总

liuxi001 · 发表于 2019-7-18 21:32

本帖最后由 liuxi001 于 2019-7-22 04:16 编辑

合并与拆分v0.3.zip (109.6 KB, 下载次数: 406)

多簿相同表汇总及多簿多表中查询v0.2.zip (61.11 KB, 下载次数: 354)

补充内容 (2019-12-24 18:27):
合并时总表和分表的列字段名是采用的模糊匹配，即这句InStr(Trim(z_Title(1, i)), Trim(f_Tab(1, j))) > 0是模糊匹配

补充内容 (2019-12-24 18:28):
如果要精确匹配，此句改为：If z_to_fcol(i) = 0 And Trim(z_Title(1, i))=Trim(f_Tab(1, j)) Then

thtfzhaobo · 发表于 2019-7-22 20:31

坚持这么久，赞

lrh788 · 发表于 2019-7-22 20:38

收藏备用！！！

liuxi001 · 发表于 2019-7-22 20:40

thtfzhaobo 发表于 2019-7-22 20:31
坚持这么久，赞

因为自己一直在用，会经常会用到合并这样的功能，总是找到一些小BUG~

wwww32323 · 发表于 2019-8-12 11:55

超级强大楼主威武

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

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

评分