excel编排考场代码

Sub Macro1()

Sheets(\考号\ Sheets(\考场\

m = InputBox(\ 请输入第一个考号。\考号\ Sheets(\考号\ Columns(\

Sheets(\考号\ Application.CutCopyMode = False

Sheets(\考号\

Sheets(\考号\Order1:=xlDescending, Header:=xlYes

Key1:=Sheets(\

考

号

\

For i = 3 To Sheets(\考号\

If Sheets(\考号\考号\ For j = 1 To 30

If Sheets(\考号\考号\考号\

If Sheets(\考号\-1) = \Then Sheets(\考号\考号\

Sheets(\考号\考号\ Sheets(\考号\考号\ Sheets(\考号\考号\ i = i - 1 Exit For End If Next Else

If Sheets(\考号\-1) = \Then Sheets(\考号\考号\ Sheets(\考号\考号\

Sheets(\考号\考号\ Sheets(\考号\考号\ End If Next

Sheets(\考号\End Sub

Sub Macro2()

Sheets(\考号\

Sheets(\考号\ Sheets(\考号\

Sheets(\考号\ Application.CutCopyMode = False j2 = 3

m = InputBox(\ 请输入考场总数。\考场总数\ For i = 1 To m

n = InputBox(\ 请输入第\个考场的考生人数。\考场考生人数\ For j = j2 To n + j2 - 1

Sheets(\考场\第\考场\ If i = 0 Then Exit For End If

Sheets(\考场\班级\姓名\考号\班级\姓名\考号\班级\姓名\考号\班级\姓名\考号\ n2 = Sheets(\考场\ For k = 1 To 10 Step 3

Sheets(\考场\考号\考场\= Sheets(\考号\考场\考号\ j = j + 1 Next j = j - 1 Next j2 = j Next

Sheets(\考号\End Sub