VBA学习笔记2：将工作簿的表格拆分为工作簿

VBA学习笔记2：将工作簿的表格拆分为工作簿

1、判断原有工作簿的sheet是否需要拆分；
2、如需拆分则创建新表；
3、将原sheet复制到新建的工作簿中。

效果如下：
代码执行前,有1个工作簿，需要将除sheet1外的其他3个sheet拆分为不同的工作表：

执行后：
由于文件夹中已有“理三一班”等工作簿，故重命名时在前面都加了new。

代码如下：

Sub 拆分工作簿()
    Dim sht As Worksheet
        For Each sht In ThisWorkbook.Worksheets '开始循环脚本所在工作簿中的所有工作表