在我们的工作当中,常常会遇到这样的工作场景,我们需要将一个汇总的工作表按照某列的字段拆分为多个工作表。按照惯例,我们还是通过实际的一个例子来给大家进行形象的讲解吧。下面为某学校高一年级的成绩汇总表,我们需要按照班级为单位,将每个班级拆分成一个工作表。
我们需要操作的是根据班级列,将花名册拆分为5个工作表,分别以班级名称命名工作表的名称。
我们使用数据透视表,可以按照班级名称进行透视汇总,在数据透视表中有一个功能,双击汇总的数据行,可以生成一个该汇总行的组成明细的工作表,我们根据Excel数据透视表的这一个功能特征,就可以将一个汇总表按照需要的字段进行拆分。某一时候可能会需要根据多列进行拆分,这个时候最简单的办法就是大家新建一个辅助列,将作为条件的那几列合并在辅助列中,这样就能轻松实现。下面介绍具体的操作步骤。
1、插入透视表。
在【插入】选项卡下面的【表格】组中找到【数据透视表】,单击,弹出创建数据透视表对话框,点击确定就可以。
2.生成数据透视表
以班级作为行标签,以学号作为值,汇总方式为计数,生成如下的透视表。
3.通过数据透视表生成工作表。
依次双击生成的数据透视表中的计数项,就可以生成工作表。
4.通过录制宏的方式批量设置工作表格式。
某些时候,我们需要对每个生成的工作表进行一些格式的统一,如统一设置行高为20,设置字体为宋体,设置对齐方式为居中,同时设置列宽。这个时候我们就可以使用到Excel中录制宏的操作方式(也即Excel的VBA功能),我们可以在设置一个工作表的时候进行录制宏,然后稍稍对生成的代码进行更改,然后就可以在其他生成的工作表中批量重复同样的操作。
录制后生成如下代码:
Sub宏1()
'宏1宏
Range("表2[#All]").Select
Selection.RowHeight=20
WithSelection
.HorizontalAlignment=xlCenter
.VerticalAlignment=xlCenter
.WrapText=False
.Orientation=0
.AddIndent=False
.IndentLevel=0
.ShrinkToFit=False
.ReadingOrder=xlContext
.MergeCells=False
EndWith
WithSelection.Font
.Name="宋体"
.Size=11
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ThemeColor=xlThemeColorLight1
.TintAndShade=0
.ThemeFont=xlThemeFontNone
EndWith
WithSelection.Font
.Name="宋体"
.Size=12
.Strikethrough=False
.Superscript=False
.Subscript=False
.OutlineFont=False
.Shadow=False
.Underline=xlUnderlineStyleNone
.ThemeColor=xlThemeColorLight1
.TintAndShade=0
.ThemeFont=xlThemeFontNone
EndWith
Selection.Borders(xlDiagonalDown).LineStyle=xlNone
Selection.Borders(xlDiagonalUp).LineStyle=xlNone
WithSelection.Borders(xlEdgeLeft)
.LineStyle=xlContinuous
.ColorIndex=0
.TintAndShade=0
.Weight=xlThin
EndWith
WithSelection.Borders(xlEdgeTop)
.LineStyle=xlContinuous
.ColorIndex=0
.TintAndShade=0
.Weight=xlThin
EndWith
WithSelection.Borders(xlEdgeBottom)
.LineStyle=xlContinuous
.ColorIndex=0
.TintAndShade=0
.Weight=xlThin
EndWith
WithSelection.Borders(xlEdgeRight)
.LineStyle=xlContinuous
.ColorIndex=0
.TintAndShade=0
.Weight=xlThin
EndWith
WithSelection.Borders(xlInsideVertical)
.LineStyle=xlContinuous
.ColorIndex=0
.TintAndShade=0
.Weight=xlThin
EndWith
WithSelection.Borders(xlInsideHorizontal)
.LineStyle=xlContinuous
.ColorIndex=0
.TintAndShade=0
.Weight=xlThin
EndWith
ActiveWindow.SmallScrollDown:=-9
Range("A2").Select
ActiveCell.FormulaR1C1="1"
Range("A3").Select
ActiveCell.FormulaR1C1="2"
Range("A2:A3").Select
Selection.AutoFillDestination:=Range("表2[序号]")
Range("表2[序号]").Select
ActiveWindow.SmallScrollDown:=48
Sheets("Sheet3").Select
Sheets("Sheet3").Name="高1班"
Range("D70").Select
ActiveWindow.SmallScrollDown:=-84
EndSub
在其他工作表中,大家需要操作的仅仅是将表2更改为新表的名称即可。最后的工作表重命名代码处如果大家对VBA有点基础的话可以做如下更改:
Sheets("Sheet3").Select
Sheets("Sheet3").Name="高1班"
修改为:
ActiveSheet.Name=Cells(2,3)
这样就可以自动对当前的工作表进行重命名。
5.结果如下: