怎样用excel表格作学生点名册？做1个表格然后把学生姓名学号输入上去打印出来就好了我只能帮你到这了。。。 查看原帖>> 全校学生名单在一个表里，用什么公式能把数据按班级分到不同的excel里？这个问题用函数和VBA代码就可以轻松解决，简单几步即可
怎样用excel表格作学生点名册？
做1个表格然后把学生姓名学号输入上去打印出来就好了我只能帮你到这了。。。 查看原帖>>全校学生名单在一个表里，用什么公式能把数据按班级分到不同的excel里？
这个问题用函数和VBA代码就可以轻松解决，简单几步即可。
一、准备工作
1、表格存放路径：D:各班级成绩 （可根据自己的存放位置自行修改），直接复制路径即可。如图：2、表格的准备，表1存(cún)放数据源，表2罗列班级，注意班级不要yào 重复，表3是一个空表，命名为“data”，起过渡作用。
如{pinyin：rú}图：
表(繁：錶)1
亚博体育表2
表（繁体：錶）3
以上准备工作做好后[繁：後]，接下来就是操作了。
二、实际操作
在表1（数据源）按 AI澳门博彩T F11，调【diào】出VBA窗口，复制粘贴以下代码
Sub 按班级拆【pinyin：chāi】分表格()
Dim i
Dim b
i = 2
While Sheets("班级[繁体：級]").Cells(i， 1) <> ""
b = Sheets("班(bān)级").Cells(i， 1)
Sheets("数[繁体：數]据源").Select
Rows("1:1").Select
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
End Sub
然后关闭VBA对话框，在表1窗口按ALT F8执《繁体：執》行代码即可。
如下xià 图：
复制粘贴[tiē]代码
执{pinyin：zhí}行代码
下面我对代码做一（pinyin：yī）些必要的说明：
三、最终效果
这个拆分模型不仅可以运用到班级的拆分，也可以用在其【pinyin：qí】他方面的拆分，如按产品，人员（读：yuán），业绩都是可以的。
如果帮到你，请关注我！帮忙点个呗！谢谢，不明白的可以（拼音：yǐ）联系我。
本文链接：http://10.21taiyang.com/Shooter-GamesGames/13719415.html
学生花名【míng】册表格模板转载请注明出处来源
