没人知道吗

用随机数公式试试。

第一列公式=RAND()
第二列公式=RANK(A1;$A$1:$A$6)
第三列公式=IF(B1>4.5;3;IF(B1>2.5;2;1))

方法有点笨，但解决问题了。求更好的解答方法。

右击工具栏，选择“控件工具箱”，然后在工作表中画一个按钮，双击按钮输入以下代码：
Option Base 1
Const M As Integer =
Const N As Integer =
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, a(M) As Integer, x As Integer, k As Integer
k = Val(InputBox("请输入组数"))
For  =
Erase a
End If
Loop
Next j
End Sub
然后在控件工具栏中选择“退出设计模式”，以后每次单击按钮，弹出一个对话框，输入组数，再按确定结果就出来了。