合并工具

内心平静 · 发表于 2022-11-4 13:52

好东西，谢谢楼主分享

mx60436 · 发表于 2022-11-18 09:11

写的很好，赞

mx60436 · 发表于 2022-11-18 09:28

3190496160 发表于 2022-9-21 17:37
多薄多表合并中，增加了在A列写入原文件名称功能，

第一个没问题，这个运行时错误'1004'，无法在此处粘贴次内容，因为复制区域和粘贴区域的大小不同
sh.Rows(Val(bt) + 1 & ":" & r).Copy .Cells(rs, 2)

jy03342543 · 发表于 2022-11-18 11:59

灵活好用又能从中学到不少知识,感谢楼主分享.

zhaoxx · 发表于 2022-11-18 15:52

感谢分享，好好学习下

3190496160 · 发表于 2022-11-20 21:42

1、增加了一个功能：多薄一表合并为一薄一表功能
2、解决了合并多薄多表为一薄多表时出错的问题，
欢迎下载使用，发现问题希望积极反馈

合并工具.rar (40.8 KB, 下载次数: 175)

3190496160 · 发表于 2022-11-23 20:26

合并工具.rar (35.08 KB, 下载次数: 176)
增加了一个功能：一薄多表合并为一个工作表

XL3750727 · 发表于 2022-11-24 10:10

这么好的神器，怎么也要下载来试试，

熊文来 · 发表于 2022-11-24 21:07

3190496160 发表于 2022-11-23 20:26
增加了一个功能：一薄多表合并为一个工作表

太好的文件了感谢提供的帮助！

mx60436 · 发表于 2022-12-5 12:31

3190496160 发表于 2022-11-23 20:26
增加了一个功能：一薄多表合并为一个工作表

合并多簿多表为一簿多表，会出现错误，9月16日版本则没有问题，运行时错误 91，对象变量或with块变量未设置
rs = .UsedRange.Find(What:="*", SearchDirection:=xlPrevious).Row + 1

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

[分享] 合并工具