指定excle名单，想进行随机分组，怎么做啊？
本人想做一个随机分组程序用于教学，从excle或txt中读取姓名，输入分成若干组，然后生成每组的名单，请问如何能够实现啊？求源码！不甚感激啊！！ --------------------编程问答-------------------- rnd --------------------编程问答-------------------- 洗牌算法就行啊。将所有人员调入数组，执行洗牌，再将所有人员按编组分开。
Sub 随机分组()
Dim l As Integer, i As Integer, r As Integer, t As String
l = [A65536].End(xlUp).Row
For i = 1 To l
Randomize
r = Int(l * Rnd + 1)
t = Range("A" & i): Range("A" & i) = Range("A" & r): Range("A" & r) = t
Next i
End Sub
Excel表中A列为人员，运行后人员打乱，按个数分组就行了。
补充：VB , 基础类
