拆分工作表

学生的方式的 · 发表于 2019-6-13 11:32

请问老师们，怎么把财务报表里sheet4开始到sheet25的工作表，每个工作表对应一个工作簿，每个工作簿都是按每25行拆分为一个工作表呢，工作簿名字就是省份+产品结算，表头表尾和格式也是按照产品结算表，

朱荣兴 · 发表于 2019-6-13 16:09

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

Yalishanda30 · 发表于 2019-6-13 16:10

zpy2 · 发表于 2019-6-13 16:13

这么多记录要打印啊。。。工作量的确不少。。

朱荣兴 · 发表于 2019-6-13 17:27

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

朱荣兴 · 发表于 2019-6-13 17:29

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

学生的方式的 · 发表于 2019-6-13 20:35

朱荣兴发表于 2019-6-13 17:29
代码仅供参考。在报表文件中增加一个模板工作表，
论坛上传不了附件，

老师这个代码放在哪个工作簿里？

学生的方式的 · 发表于 2019-6-13 20:40

朱荣兴发表于 2019-6-13 17:27
Sub 拆分() '''QQ:705664849
Application.ScreenUpdating = False
Dim n

Set sht = ThisWorkbook.Worksheets("模板")
我发的附件里没有这个工作表啊

朱荣兴 · 发表于 2019-6-13 20:48

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

学生的方式的 · 发表于 2019-6-13 21:08

朱荣兴发表于 2019-6-13 20:48
看看6楼的说明，

好的，谢谢老师！

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

[求助] 拆分工作表

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-6-13 16:09 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-6-13 17:27 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-6-13 17:29 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-6-13 20:48 \| 显示全部楼层 [广告] ★ExcelHome默写助手 - 不用妈妈陪的默写神器 · Word/WPS插件 · 自定义默写单 · 自定义描红字帖★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报