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

武松打鼓 · 发表于 2020-9-11 10:16

liuxi001 发表于 2020-2-19 22:12

你这个合并是，汇总表本身没有表头的情况，多数汇总表本身是有表头的，能不能改进下呢？另外保留第一列不导入内容，留作汇总表的序号列，自动公式统计即可，同时加上表格线。

liuxi001 · 发表于 2020-9-11 15:30

武松打鼓发表于 2020-9-11 10:16
你这个合并是，汇总表本身没有表头的情况，多数汇总表本身是有表头的，能不能改进下呢？另外保留第一列不 ...

相同结构的表格汇总是有表头的，各分表表头不一样时（表头所在行不同，列顺序不一样）就需要汇总表先录入列标题。
序号和边框线因人而异可以自己修改。

vvw123 · 发表于 2020-10-8 20:13

感谢分享，挺一个！

loveuni · 发表于 2020-10-8 21:23

mark一下，一会回来在看。

liuxi001 · 发表于 2020-10-10 13:17

qdchyq 发表于 2020-2-10 14:05
老师，我执行vba后，提示错误，请帮忙看看

因代码中调用了其它过程或函数，而你没把这些函数或过程一起复制过来所以出错。

liuxi001 · 发表于 2020-10-10 13:20

lrh788 发表于 2020-6-9 17:51
请分享个同薄多表合并(不限表头位置和顺序)的通用代码

合并当前工作簿的没有写，因为你直接选择你要合并的工作簿就可以了。也可以自己修改，去掉外层的工作簿间循环代码就可以了。

ph378 · 发表于 2020-11-6 19:51

收藏了

。。。

gwjkkkkk · 发表于 2020-11-25 19:07

收藏学习。。。

pj1238 · 发表于 2020-12-7 11:25

如果要合并的表格全部都有一样的密码，这样的可以合并吗

liuxi001 · 发表于 2020-12-7 13:04

本帖最后由 liuxi001 于 2020-12-7 13:08 编辑

pj1238 发表于 2020-12-7 11:25
如果要合并的表格全部都有一样的密码，这样的可以合并吗

查看workbooks.open()参数expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

set wb=workbooks.open(f,0)改为set wb=workbooks.open(FileName:=f,UpdateLinks:=0,password:="你的密码")

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

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

评分