excel蛇(s)形分班函数

一班	二班	三班	四班	五班	六班
1	2	3	4	5	6
12	11	10	9	8	7
13	14	15	16	17	18
19

按名次蛇形分班，，其中1~19代表名次

Public Function fenban(mc, bjnum)
'mc 学生顺序名次，bjnum 共分多少个班,蛇形分班，返回该生的班级
mc = mc - 1
Dim jo As Integer '奇偶轮
Dim jg As Integer '所在结果班级
Dim cs As Integer
Dim ys As Integer
cs = Int((mc / bjnum))
ys = mc Mod bjnum
jo = cs Mod 2
If jo = 0 Then
jg = ys + 1
Else
jg = bjnum - ys
End If
fenban = jg
End Function