批量复制sheet页，然后重新生成工作簿--VBA-求助各位大侠

vincent_cjb

各位大侠，

我在附件的工作簿中有多张sheet页。其中
sheet页：一级指标，二级指标，12 这三个sheet页是固定的，名称也是固定的。
其他的sheet页是灵活的，可以增加可以减少，如目前在工作簿中有sheet页：技术、商务、质量、服务，未来可能增加sheet页，也可能减少sheet页，而且sheet页的名称也是灵活的。

求助： 1 可以批量一个一个的把其他灵活的sheet页内容copy到固定页12中，在copy之前先删除12页中的内容。 然后新生成一个工作簿（工作簿的名称=灵活sheet页的名称）工作簿只有sheet页：一级指标，二级指标，12 这三个sheet页,新工作簿的名字叫原工作簿的名字&某个指定灵活sheet页的名字的并集。
举例步骤：见附件工作簿：举例.xlsm（注意：copy是整个sheet页的内容一起copy）

• 删除举例sheet页中12页的内容
• copy sheet页中技术的到12页中
• 生成工作簿：举例技术.xlsx（含sheet页：一级指标，二级指标，12）
• 删除举例sheet页中12页的内容
• copy sheet页中商务的到12页中
• 生成工作簿：举例商务.xlsx（含sheet页：一级指标，二级指标，12）
• 删除举例sheet页中12页的内容
• copy sheet页中质量的到12页中
• 生成工作簿：举例质量.xlsx（含sheet页：一级指标，二级指标，12）
• 删除举例sheet页中12页的内容
• copy sheet页中服务的到12页中
• 生成工作簿：举例服务.xlsx（含sheet页：一级指标，二级指标，12）
• 查找是否还有其他的灵活也，发现没有，结束，有的话继续重复
  

谢谢，请大家帮助，感谢

zgwei050

举例.rar (60.04 KB, 下载次数: 6)

2020-8-11 12:32 上传

点击文件名下载附件 代码思路有点不一样：
第一次选择：“一级指标，二级指标，技术”三个工作表，复制成新的工作簿，把“技术”工作表名称改为“12”，保存；
第二次选择：“一级指标，二级指标，质量”三个工作表，复制成新的工作簿，把“质量”工作表名称改为“12”，保存；
以此类推。

vincent_cjb

求各大侠帮忙一下，感谢感谢

vincent_cjb

zgwei050 发表于 2020-8-9 21:35
代码思路有点不一样：
第一次选择：“一级指标，二级指标，技术”三个工作表，复制成新的工作簿，把“技 ...

谢谢了，方式不一样。再次感谢大侠