（新手求助）如何使用现有考生名单快速编排考场考生座位表

夊缘

求助各位高手，菜鸟现在在弄一场考试，前期数据都收集好后，在编排考生考场那里犯难了。想请问如何利用现有考生名单制作一个自动安排考生考场，座位号的表。
安排考场规则是这样的：1、30个考生设一个考场，末尾考场不满30人的仍旧编排为1个考场。2、原学校的原则上安排在本校考点考试（中学代码和考点代码要一致）3。考场座位安排时按考生名单顺序来安排（就是不随机）
感谢，由于考生比较多（几万人），如何快捷编排就成了一个大问题。

王小博vba

先对你的原始数据进行了一下手工筛选排序。再运行代码。
[code=vb]Option Explicit


Sub 排考场()
Dim kch As Integer '考场号
Dim kszwh As Integer '座位号
Dim i As Integer
kch = 1
kszwh = 1
i = 2

With Worksheets("市区语文报考名单")
.Range("D1") = "考场号"
.Range("E1") = "考生座位号"

Do While i <= .Range("A65536").End(xlUp).Row
    If .Range("C" & i).Value = .Range("C" & i + 1).Value Then
        .Range("D" & i) = kch
        .Range("E" & i) = kszwh
        If kszwh < 30 Then
        kszwh = kszwh + 1
        Else
        kszwh = 1
        kch = kch + 1
        End If
    Else
        .Range("D" & i) = .Range("D" & i - 1).Value
        .Range("E" & i) = .Range("E" & i - 1).Value + 1
        kch = kch + 1
        kszwh = 1
    End If
    i = i + 1
Loop
End With
End Sub[/code]
也上传了附件，不知道是不是你说的这个功能。
考场座位表.rar (85.79 KB, 下载次数: 632)

2012-12-20 14:15 上传

点击文件名下载附件
VBA代码已补充

夊缘

王小博vba 发表于 2012-12-20 14:16
先对你的原始数据进行了一下手工筛选排序。再运行代码。

也上传了附件，不知道是不是你说的这个功能。

非常感谢老师的帮助！

xfqyang

用函数就可以：
在市区语文报考名单表的D2单元格输入=IF(C2<>C1,D1+1,IF(COUNTIF(D1:D$2,D1)<>30,D1,D1+1))
C2输入=COUNTIF(D$2:D2,D2)
一同下拉填充即可。

夊缘

xfqyang 发表于 2012-12-20 15:30
用函数就可以：
在市区语文报考名单表的D2单元格输入=IF(C2C1,D1+1,IF(COUNTIF(D1:D$2,D1)30,D1,D1+1))
C ...

谢谢老师的解答！：D

xljzhzhf

非常感谢，下载使用非常好