Sub paizuo()
　　Sheets("座位表").Select '激活“座位表”工作表
　　Dim Group As Integer '定義表示組數的變量Group
　　Group = Val(InputBox("本班學生分為幾組?")) '將輸入的數字賦給變量Group
　　Zuoci (Group) '調用Zuoci函數對學生進行排座
　　Sheets("座位表").Select
　　End Sub
　　Sub Zuoci(gro As Integer)
　　Dim i As Integer, j As Integer ' 定義循環變量
　　Sheets("學生名單").Select '激活“學生名單”工作表
　　Dim Irows As Integer, Icols As Integer, Ixs As Integer '定義“座位表”行變量，列變量，及"學生名單"學生行變量
　　Irows = 60 / gro '初始化行變量
　　Icols = gro '初始化列變量
　　Ixs = 1 '初始化“學生名單”學生行變量
　　For i = 1 To Icols '第一位學生自第2行開始
　　Ixs = i + 1
　　For j = 2 To Irows + 2
　　Sheets("座位表").Cells(j, i) = Sheets("學生名單").Cells(Ixs, 1) '給座位表賦值
　　Ixs = Ixs + gro '下一個學生為當前第gro個學生
　　Next j
　　Next i
　　End Sub