在我们的日常工作中，经常遇到一个汇总工作表需要按照某一列的字段分成多个独立工作表的情况。为了更好地解释这一过程，我们将以一个学校高一年级的成绩汇总表为例进行说明。
假设我们手头上有一份高一年级各班级的成绩汇总表，我们需要根据班级这一列将表格拆分成多个工作表，每个工作表对应一个班级。
为了完成这一任务，我们可以利用Excel的数据表功能。我们根据班级创建数据表，并通过点击表中的计数项来生成各个班级的工作表。这一过程相对直观和简单。
录制的代码大致如下：
vba
‘ 设置工作表格式
Sub 设置格式()
‘ 选择范围并设置行高、字体、对齐方式等
Range(“表2[All]”).Select
Selection.RowHeight = 20
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = False
.Font.Name = “宋体”
.Font.Size = 11
End With
‘ 设置边框
Selection.Borders.LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
‘ 其他边框设置类似…
‘ 自动填充序号及重命名工作表
Range(“A2”).FormulaR1C1 = “序号”
Range(“A3”).FormulaR1C1 = “序号+1” ‘ 或其他起始序号值
Range(“A2:A3”).AutoFill Destination:=Range(“表2[序号]”)
ActiveSheet.Name = Cells(2, 3).Value ‘ 自动重命名当前工作表
End Sub
最终，通过这个流程，我们可以将原始的汇总表拆分成多个按班级划分的工作表，并且每个工作表的格式和命名都经过统一和规范。如果大家想获取本文的演示文件，只需关注后私信【拆分工作表】即可获取。这个过程不仅提高了效率，也使得后续的数据处理更加便捷。
