多表数据合并

hqxx1234 · 发表于 2019-11-26 06:40

合并.rar (122.2 KB, 下载次数: 16)

2345截图20191126063755.png

附件内有几十张表格，用自然数序号命名，

想把所有自然数命名的表内数据，
从第2行起，按工作表名的自然数顺序引用到【汇总】中
即当分表数据变化时，汇总数据同步更新

在汇总表F列内，标出这个单词对应的工作表名.

感谢

朱荣兴 · 发表于 2019-11-26 09:51

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2019-11-26 09:52

提示: 作者被禁止或删除内容自动屏蔽

hqxx1234 · 发表于 2019-11-26 10:41

朱荣兴发表于 2019-11-26 09:51
Sub test()
Sheets("汇总").UsedRange.Offset(1) = Empty
For Each sh In Sheets

合并 - 副本.rar (106.34 KB, 下载次数: 8)
2345截图20191126103921.png

我手输入了代码、复制老师的代码
还是有这样的提示，
改表名也没有成功
我上传了附件
老师再帮我看看
谢谢

朱荣兴 · 发表于 2019-11-26 11:48

提示: 作者被禁止或删除内容自动屏蔽

NadrsSaber · 发表于 2019-11-26 13:33

上传附件看看

hqxx1234 · 发表于 2019-11-26 17:09

NadrsSaber 发表于 2019-11-26 13:33
上传附件看看

合并 - 副本.rar (106.34 KB, 下载次数: 15)

辛苦谢谢

cui26896 · 发表于 2019-11-26 23:36

不需要改什么表名呀，版主的代码完全可以通过的！

版主代码运行结果.JPG

运行版主的的结果如图，随便截了两段，很正常，你自己哪里没有弄对。

hqxx1234 · 发表于 2019-11-27 09:27

cui26896 发表于 2019-11-26 23:36
不需要改什么表名呀，版主的代码完全可以通过的！

谢谢我自作聪明改了表名才失败的

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

[求助] 多表数据合并

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-11-26 09:51 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-11-26 09:52 \| 显示全部楼层 [广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-11-26 11:48 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报