抽奖、安排考场，Excel也能轻松做到

抽奖、安排考场，Excel也能轻松做到

用Excel写了个抽奖的小代码。突发奇想，也可以做个分派考场的功能。不知道现在学生考试怎么分派考场，这样编写是否符合实际，但思路应该是对的，基本原理就是利用了VB的随机函数。

为方便操作，做了一个简单的学生信息表，只有“姓名”和“班级”列。

操作思路是：先复制一个“学生信息”工作表，重命名为“修改学生信息”；在工作表“班级”后一列利用随机函数对每名同学随机编号，再将编号以“升序”或“降序”排列，打乱学生原有的排序；确定每个考场的学生人数后（因学生样本少，本次每考场安排12人），计算考场数；复制“修改学生信息”工作表并以“第*考场”依次命名，从上到下依次留取考场人数的学生，其余行删除；在“姓名”列前插入一列，按考场编制考号；最后删除“修改学生信息”工作表。

完成后效果：

代码如下：

'随机排序，拆分工作表

Public Function RandName()

    Dim ReSheetName As String

    Dim OriSheetName As String