将汇总表按标准模板拆分

adminsong · 发表于 2016-9-11 21:24

这是改后的文件

lsc900707 · 发表于 2016-9-12 07:21

adminsong 发表于 2016-9-11 21:24
这是改后的文件

将 Sheets(3).Name = "第" & (j) & "页" 修改成
Sheets(3).Name = arr(1) & arr(2)

lsc900707 · 发表于 2016-9-12 07:26

adminsong 发表于 2016-9-11 21:24
这是改后的文件

详见附件，请查看结果是否满意>>>>>>>>

adminsong · 发表于 2016-9-12 08:05

lsc900707 发表于 2016-9-12 07:26
详见附件，请查看结果是否满意>>>>>>>>

谢了，之前不知道怎么改，总算是解决问题了

liulang0808 · 发表于 2016-9-12 11:16

Sheets(3).Name = "第" & (j) & "页"
修改下就可以了
Sheets(3).Name = arr（1）& arr(2)
如果有其他要求，针对修改就可以了

adminsong · 发表于 2016-9-12 22:25

liulang0808 发表于 2016-9-12 11:16
Sheets(3).Name = "第" & (j) & "页"
修改下就可以了
Sheets(3).Name = arr（1）& arr(2)

好的，已经可以了，谢谢您的代码

LMY123 · 发表于 2017-6-2 16:02

按模板拆分工作表

uckfa · 发表于 2019-4-2 11:29

受教了，很有用

adminsong · 发表于 2019-12-29 17:36

本帖最后由 adminsong 于 2019-12-29 17:41 编辑

liulang0808 发表于 2016-9-12 11:16
Sheets(3).Name = "第" & (j) & "页"
修改下就可以了
Sheets(3).Name = arr（1）& arr(2)

老师您好，之前按照您给的代码已经能正常的拆分表格，我的工作确实变得简单了。但现在有一个新的要求，想把拆分后的表格另存为一个新的工作簿，新的工作簿位置默认或指定位置都行，工作簿名称可以是拆分的第一行的工程名称，工作簿中的表格名称还按照之前的就行(工程名称+合同编号)

liulang0808 · 发表于 2019-12-30 07:49

在原来代码上做了调整，供参考。。。。。。

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