Excel 随机函数-进行抽签- 分组

A1至A18输入"A",然后在A19至A102输入"B"；

B1输入公式：=RANDBETWEEN(1,102)，下拉填充至B102；

然后对B1进行排序，可以随机打乱A,B的排序，

然后从A1至A102输入1-102，可以得到A列为桌号，B列为组号。

像你说的安排比赛：3组4个人，有5组5个人，5个人的那几组有两个种子选手，4个人的那几组有一个种子选手，这样正好13人。抽签简单，种子选手直接8个组排开，不用抽签。其余的24个人抽签。分8个组12345678，1--3组每组排一个种子选手，4--8组每组排2个种子选手。把签准备好，三个1，三个2，三个3，三个4，三个5，三个6，三个7，三个8。然后就让24人来抽签，这样排就OK了。

Private Sub Command1_Click()

Dim team(8), teamA(4), teamB(4) As String, i%, j%

team(1) = "中国"

team(2) = "美国"

team(3) = "巴西"

team(4) = "古巴"

team(5) = "俄罗斯"

team(6) = "荷兰"

team(7) = "德国"

team(8) = "西班牙"

For i = 1 To 8

x = Int((9 - i)  Rnd + 1)    '剩余随机选择

If i > 4 Then

teamA(i - 4) = team(x)

Else

teamB(i) = team(x)

End If

For j = x To 8

If j < 8 Then team(j) = team(j + 1)

Next

Next

Text1Text = teamA(1) & Space(2) & teamA(2) & Space(2) & teamA(3) & Space(2) & teamA(4)

Text2Text = teamB(1) & Space(2) & teamB(2) & Space(2) & teamB(3) & Space(2) & teamB(4)

End Sub

以上就是关于Excel 随机函数-进行抽签- 分组全部的内容，包括:Excel 随机函数-进行抽签- 分组、乒乓球比赛，37人，分8组，13位种子选手。分组如何抽签、vb比赛分组抽签程序：编写一个比赛分组抽签程序，把八支队伍（中、美、巴西、古巴、俄罗斯、荷兰、德国、日等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！