软件版本：Microsoft Office 标准版 2016
- 一、背景
- 二、学生成绩按教学班区分成各个子表
- 2.1.区分子表操作步骤
- 2.2.优化调整表格式
- 三、教学班多个子表导出独立的表
——————————————————————————————————————————————————
一、背景
有一张成绩单总表，里面包含了学号、姓名、教学班、得分。学生总数（行总数）有5646，教学班共有100+。
按照要求，把学生按照教学班区分出成绩表，形成独立教学班Excel表。
——————————————————————————————————————————————————
二、学生成绩按教学班区分成各个子表
2.1.区分子表操作步骤
任意点击表其中的单元格，点击插入----选择数据透视表
弹出的选项卡点击确定
按顺序勾选序号、学号、姓名、自然班、教学班、教学单位、得分。
勾选完成后会出现在行方框内。 把行框里面的教学班点击拖动到筛选器里。
点击设计—分类汇总—不显示分类汇总
点击设计—总计—对行和列禁用
点击设计—报表布局—重复所有项目标签
点击设计—报表布局—以表格形式显示
点击分析—选项—显示报表筛选页，弹出的提示直接确定即可。
这样按照教学班就把学生分类好了。形成了分类的子表
分类出的表，整体格式看起来还不完美，需要优化下
2.2.优化调整表格式
右键—选定全部工作表
选择整表—按需进行单元格的填充、列之间的间距、行高、居中等。选一次，所有子表同时变动。
调整的结果
——————————————————————————————————————————————————
三、教学班多个子表导出独立的表
删除多余的Sheet1表，按需要，删除总表（成绩简表）。
桌面创建文件夹—教学班成绩表，把刚才保存的Excel文件拖入里面，并打开。
右键—选定全部工作表
在选定好的工作表上右键—查看代码
复制如下代码：
Sub 拆分工作薄()
Dim xpath As String
xpath = ActiveWorkbook.Path
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name
ActiveWorkbook.Close
Next
MsgBox "拆分完毕!"
End Sub
输入完成后，点击运行代码
如以下提示直接点确定即可。
等待运行完成后，提示拆分完毕，查看结果如下：（把结果中的总表按需删除即可）
