求助！！！！！

直接函数公式可以随机分组

Sub aa()
Dim arr(1 To 32)
Dim brr(0 To 32, 1 To 2)
For i = 1 To 32
arr(i) = Rnd
Next
For j = 1 To 32
r = 1
For i = 1 To 32
If arr(j) < arr(i) Then
r = r + 1
End If
Next
brr(j, 1) = j
brr(j, 2) = r
Next
brr(0, 1) = "组号"
brr(0, 2) = "抽签结果"
Range("a1:b33") = brr
End Sub