怎么用EXCEL编排考场和考号？

怎么用EXCEL编排考场和考号？~

你没有说具体的编排规则，不能准确的帮到你。有个思路，考号可以用序列填充功能直接填充。如果30个人一个考场，可以用考号减1再与30的商加1作为考场。

发个样表和考场的座位分布表看看！账号就是QQ

工具/材料：电脑,excel

1.打开excel，打乱原有排序，可以在辅助列中利用rand函数生成0-1中的任意数，之后按照辅助列排序。

2.安排考点：考点安排比如一个考点26个人（模拟数据5个人）。就是要连续生成26个1,20个2，依次类推，可以利用int（row()/26)+1公式生成。

3.座位号：座位号是重复生成连续的数列，1,2,3,4,5……；1,2,3,4,5……；可以利用求余函数mod实现。

一、先编排考场

1.首先要做的就是先安排各个班级的每个学生所在的考场，尽量让同一考场不能有同班同学。或者是，同一考场出现部分或极少的同班同学。

2.比如，一个年级有20个班级，每个班级有50个学生，那么，学生总人数就是1000个人；如果一个考场安排30个学生，那么，每个考场就有30个座位，那么，总的考场数量是31个。

3.现在先安排考场。

4.如下图，增加一“考场”的列，然后，使用填充功能，从上往下填充1到31，1到31代表的就是考场号；

5.注意，从1填充到31，然后，接着又从1填充到31，直到把整个年级的学生都填充完为止。

6.通过填充，就得到如下图的数据了。

7.现在看下图，每个班级每个学生都安排好考城了，分别在不同的考场，即便是有同班的同学在同一考场，也是少数人，稍后通过下面的方法，就能解决相邻的问题。

二、同一考场的同班同学不能在相邻位置

1.通过如上的操作，整个年级的每个学生都安排好了考场了，现在，要做的就是同一考场内的同一班级的学生不能在相邻的位置。

　　A、先通过排序的办法，对考场号进行排序

　　这样就能将同一考场的学生排序到一块。

　　B、同一考场安排座位

　　同一考场内，多数同学是不同班级的，但是有一小部分同学是同班级的，因此，得保证同一班级的同学不能在相邻的位置。

2.针对同一考场的学生数据进行排序，其它考场不管。或者将每个考场的学生数据单独保存成为一个Excel文件。

　　排序的时候，按照学生姓名进行排序，这样基本就能解决相邻的问题了，排序好了以后，再通过填充的办法，给同一考场的学生填充上1到30的座位号。

如此，整个编排考场，同班不能相邻的问题就能圆满的解决了。

Public Count As Long
Public NumberPerRoom As Integer
Public NumberPerColumn As Integer
Public 座号()
Public m_Left As Long

Sub Start()
Count = 1129 '总人数
m_Left = 1129 + 1 '剩余人数
NumberPerRoom = 30 '每考场人数
NumberPerColumn = 6 '每组人数
排座
End Sub

'主程序
Sub 排座()

Dim 考场数 As Integer
Dim m_Cell As Range
考场数 = Int(Count / NumberPerRoom)
If 考场数 < Count / NumberPerRoom Then
考场数 = 考场数 + 1
End If

ReDim 座号(1 To 考场数, 1 To NumberPerRoom)
For j = 1 To NumberPerRoom
For i = 1 To 考场数
m_Left = m_Left - 1
Set m_Cell = GetOne(i, j)
If IsEmpty(m_Cell) Then
Exit Sub
End If

座号(i, j) = m_Cell.Offset(0, 1).Value

With Worksheets("考场安排")
.Cells(m_Cell.Value, 5) = i
.Cells(m_Cell.Value, 6) = j
End With

m_Cell.EntireRow.Delete
Next
Next
End Sub

'取一个学生
Function GetOne(i, j) As Range
Dim m_Row As Long
m_Row = Int(m_Left * Rnd() + 1)
With Worksheets("临时")
While True
班级 = .Cells(m_Row, 2).Value
If 邻座是同班(i, j, 班级) = False Then
Set GetOne = .Cells(m_Row, 1)
Exit Function
Else
m_Row = Int(m_Left * Rnd() + 1)
End If
Wend
End With
End Function

'判断邻座是不是同班
Function 邻座是同班(i, j, 班级) As Boolean
Dim 邻座(1 To 4) As Integer
Dim All As Integer
邻座(1) = j - 1
邻座(2) = j + 1
邻座(3) = j - NumberPerColumn
邻座(4) = j + NumberPerColumn
邻座是同班 = True
All = 0
邻座是同班 = True
For n = 1 To 4
If 邻座(n) < 1 Then
All = All + 1
ElseIf 邻座(n) > NumberPerRoom Then
All = All + 1
ElseIf IsEmpty(座号(i, 邻座(n))) Then
All = All + 1
ElseIf 座号(i, 邻座(n)) <> 班级 Then
All = All + 1
End If
Next

If All = 4 Then
邻座是同班 = False
End If

End Function

在工作表sheet1中，A列为班号，共4个班级，各班人数不相等，B列为学生姓名，现在要求在sheet2的BC两列中用公式依次排列学生的班号和姓名。

帮你弄好了。今后不要再冒充别人了。

---

南县17636947079： 如何用excel为考生安排考点和座位号 - ？
牛中清凉： 不用宏 也行 举个例子: 共300人,先选一列标号1、2、3、……10、1、2、3、……10、1、2、3、……10、…… 共30组 然后把这一列排序就行了 同班的同学就能岔开 怎么样 很简单吧

南县17636947079： 怎样用excel排考场 - ？
牛中清凉： 考场安排有以下几个特点:第一,每个试场采用7*5的模式,即每排7人共5排;第二,学生在考场中从考场前门开始按S形顺序,座位号从低到高排列;第三,座位表在呈现过程中,学生可以顺利地获得四个数据,即考场号、座位号、学号、姓...

南县17636947079： EXCEL里每个考场三十人 三十六个考场座位号 考场号都有 怎么把考场和每个考场的座位号同时排列好 - ？
牛中清凉： 关键看你如何编排了,需要打乱顺序来是依次按照学生来一个考场一个考场的座满

南县17636947079： 请教各位高手,Excel中如何快速编排考室? - ？
牛中清凉： 你直接拖动,然后在第二列中输入第一列最后一个数据也直接拖动就行了 第三列也是如此我也是这样做的啊 要采纳啊

南县17636947079： excel中编考场号 - ？
牛中清凉： =19000+roundup(row()/30,0) 往下拉就可以了.

南县17636947079： 在excel电子表中如何排交叉排几所学校学生考号 - ？
牛中清凉：据你的情况做的一个考场自动安排表 第一列是学生(各校)名单,我是以各校代码代替名单,分到9个考场(总人数除以30) 然后B1写上公式 =INDEX($A$2:$A$269,(ROW(A1) -1)*9+COLUMN(A1)) 向右向下批量复制生成 这样就可以完成了,第一列输入名字,后面自动各考场出名单

南县17636947079： EXCEL排考场? - ？
牛中清凉： 这个要看具体情况的,说个最简单的情况,如果只有2个班,那就正好交替排列,前后左右刚好不是同班的,斜线就是同班的.如果人数不相等,那最后几个人就没办法了.因此你还是把你的班级数量,每个班的人数,都发出来,这样才好有针对性地回答 还有你的考场座位分布,有几排,每排几个座位,这些基础数据都需要的.

南县17636947079： 如何用excel安排学校期中考试安排,要求前后的学生同年级,但不同班级. - ？
牛中清凉： 将花名册按年级和班次排序,假设一年级考场有14个,考场编号是1至14. 在第一个学生后面输入1,下拉到14,选择1至14区域,按ctrl键下拉到一年级最后一名学生为止.再以此列排序考场排序即可按要求分配考场.考场位置也可以用序列填充. 其它班级方法相同,1分钟可以搞定. ok

南县17636947079： 用excel编排考场现有一个年级段(10个班)学生的总花名册60 ？
牛中清凉： 把每个班的花名册上的名字粘贴在一列,要求每个班级在一起,然后对这些名字进行编号,先输入1到10,然后后面的就直接往下拉,就会呈规律性的没十个编号一个循环,编完号之后筛选1就是考察一的学生,2就是考场二的,以此类推

南县17636947079： excel中30人一个考场如何实现 - ？
牛中清凉： 在空白列前30个单元格输入1-30系列数字为座位号,选中,下拉.