全校学生名单在一个表里，用什么公式能把数据按班级分到不同的excel里？-周公解梦-零零导航工具

您现在的位置: 首页 > 网站导航收录 > 百科知识百科知识

全校学生名单在一个表里，用什么公式能把数据按班级分到不同的excel里？

数据,班级,透视全校学生名单在一个表里，用什么公式能把数据按班级分到不同的excel里？

发布时间：2019-02-08加入收藏来源：互联网点击：

全校学生名单在一个表里，用什么公式能把数据按班级分到不同的excel里？

回答于 2019-09-11 08:43:50

这个问题用函数和VBA代码就可以轻松解决，简单几步即可。

一、准备工作

1、表格存放路径：D:\各班级成绩（可根据自己的存放位置自行修改），直接复制路径即可。如图：

2、表格的准备，表1存放数据源，表2罗列班级，注意班级不要重复，表3是一个空表，命名为“data”，起过渡作用。

如图：

表1

表2

表3

以上准备工作做好后，接下来就是操作了。

二、实际操作

在表1（数据源）按 AIT+F11，调出VBA窗口，复制粘贴以下代码

Sub 按班级拆分表格()

Dim i

Dim b

i = 2

While Sheets("班级").Cells(i, 1) <> ""

b = Sheets("班级").Cells(i, 1)

Sheets("数据源").Select

Rows("1:1").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$D$2001").AutoFilter Field:=1, Criteria1:=b

Range("A1:D1").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Sheets("data").Select

Range("A1").Select

ActiveSheet.Paste

Range("G6").Select

Sheets("data").Select

Application.CutCopyMode = False

Sheets("data").Copy

ActiveWorkbook.SaveAs Filename:="D:\各班级成绩\" & b & ".xlsx", FileFormat:= _xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Range("A1:D4").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.ClearContents

i = i + 1

Wend

End Sub

然后关闭VBA对话框，在表1窗口按ALT+F8执行代码即可。

如下图：

复制粘贴代码

执行代码

下面我对代码做一些必要的说明：

三、最终效果

这个拆分模型不仅可以运用到班级的拆分，也可以用在其他方面的拆分，如按产品，人员，业绩都是可以的。

如果帮到你，请关注我！帮忙点个呗！谢谢，不明白的可以联系我。

回答于 2019-09-11 08:43:50

利用【数据透视表】功能可以实现：

如以下数据需要按班级显示在每个工作表上：

具体操作方法：

一、鼠标定位于该数据区域中，点击【插入】菜单栏下的【数据透视表】

二、选择放置数据透视表的位置，这里以现有工作表为例，位置定位于工作表的空白处后点击【确定】。

三、点击【确定】后如下图所示：

四、按下图所示，将对应的标题项拖动到对应的位置。

五、按如下图操作：

六、在弹出的窗口中直接点击【确定】

七、按班级自动生成对应的工作表以及数据。

工作表部分：

数据部分：

完成！

以上如有疑问欢迎关注本人头条号共同交流、探讨。

回答于 2019-09-11 08:43:50