学{练：xué}生花名册表格模板

怎样用excel表格作学生点名册？做1个表格然后把学生姓名学号输入上去打印出来就好了我只能帮你到这了。。。 查看原帖>> 全校学生名单在一个表里，用什么公式能把数据按班级分到不同的excel里？这个问题用函数和VBA代码就可以轻松解决，简单几步即可

怎样用excel表格作学生点名册？

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

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

一、准备工作

2、表格的准备，表1存放数据源，表2罗列班级，注意（读：yì）班级不(bù)要重复，表3是一个空表，命名为（繁体：爲）“data”，起过渡作用。

如图（繁体：圖）：

表[拼音：biǎo]1

表【biǎo】2

表[拼音：biǎo]3

以上准备工{gōng}作做好后，接下来就是操作了。

二、实际操作

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

Sub 按班级拆分表格(gé)()

Dim i

Dim b

澳门金沙

While Sheets("班[读：bān]级").Cells(i， 1) <> ""

b = Sheets("班(bān)级").Cells(i， 1)

Sheets("数据[繁体：據]源").Select

Rows("1:1").Select

Selection.AutoFilter

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

极速赛车/北京赛车

极速赛车/北京赛车

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ān）级成{pinyin：chéng}绩[繁体：績]" & b & ".xlsx"， FileFormat:= _xlOpenXMLWorkbook， CreateBackup:=False

ActiveWindow.Close

Range("A1:D4").Select

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

Selection.ClearContents

i = i 1

Wend

世界杯

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

如rú 下图：

复制粘贴tiē 代码

执(繁：執)行代码

下面（繁体：麪）我对代码做一些必要的说明：

三、最终效果

这个拆分模型不仅可以运用到班级的拆分，也可以用在其他方面的拆分，如按产品，人员，业绩都[读：dōu]是可以的（练：de）。

如{练：rú极速赛车/北京赛车}果帮到你，请关注我！帮忙点个呗！谢谢，不明白的可以联系我。

本文链接：http://10.21taiyang.com/Hotels/13719415.html
学{练：xué}生花名册表格模板转载请注明出处来源