电子表格随机排考号，如果让两个相同单位的不相邻。

电子表格随机排考号，如果让两个相同单位的不相邻。

用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i, j, k, l, m As Integer
Dim iFlag As Boolean
Dim xRng As Range
Set xRng = Range("C2:C18") '请自己修改为存放单位的单元格区域，不包括表头
k = 9 '第9列（即H列）用于存放考号，请自己修改
j = xRng.Rows.Count
l = xRng.Range("A1").Row
Cells(l, k) = Int(Rnd * j) + 1
For i = 1 To j - 1
iFlag = True
Do While iFlag
Cells(l + i, k) = Int(Rnd * j) + 1
iFlag = False
For m = 0 To i - 1
If Cells(l + m, k) = Cells(l + i, k) Then
iFlag = True
GoTo Line1
End If
If Cells(l + m, xRng.Range("A1").Column) = Cells(l + i, xRng.Range("A1").Column) And (Cells(l + m, k) = IIf(Cells(l + i, k) = j, 1, Cells(l + i, k) + 1) Or Cells(l + m, k) = IIf(Cells(l + i, k) = 1, j, Cells(l + i, k) - 1)) Then
iFlag = True
GoTo Line1
End If
Next m
Line1: Loop
Next i
End Sub
粗体字自己按需修改，在此界面下直接按F5运行此宏，完成。

直接弄死一个，或者让一个不允许报考，很简单

我这有一个软件，就是给你的！！！可以实现！！！软件不错，是一个北师大的学生编写的

先选一个学校给单号如：013220001下一个是0132200003在表格里选重这两个号向下拖曳都是单号，然后另一个学校给号013220002下一个是0132200004也是一样向下拖曳这样就都是双号，最后在合在一个表上排序不就实现相邻的两人不是来自同一单位！这样回答能否看明白！