VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿

VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿

1、对每行数据按照类别所在列进行循环，判断某类别的工作簿是否存在；
2、如果不存在，则新建工作簿并将该行数据复制粘贴；
3、如果存在则打开工作簿并将该行数据复制粘贴。
效果如下：
需要按照班级将工作表拆分为多个工作簿，拆分前如下：

拆分后效果如下：

代码如下：

Sub 将数据拆分多个工作簿()
Dim sht1 As Worksheet '用来存储待拆分的工作表（总表）
Dim sht0 As Worksheet '用来存储新建工作簿的工作表
Dim file$
Dim k%, m%, n%, v% 
Set sht1 = Worksheets