Question

你能告诉我一个最好的脚本/程序，随机抽取胜利者。

这些都是参加比赛的参赛者，需要随机选择一名获胜者。

Excel表格中的数据。我想针对excel运行脚本。

Answer 1

以下假设您的参赛者名单位于名为“参赛者”的范围内。当然，关于系统生成的随机数的常见警告并非完全随机适用 - 应该适用于本地/小规模的有趣竞争，可能不是国家彩票的解决方案。

Sub PickWinner()
    Dim winner As String

    winner = Range("Entrants").Cells(Int(Rnd() * (Range("Entrants").Count) + 1), 1)

    Debug.Print winner
End Sub

Answer 2

另存为CSV

在python中：

import random
fd = open(csv_file)
lines = fd.readlines()
line_num = random.randrange(0,len(lines)-1)
print 'winner: ', lines[line_num]

比赛随机输入绘制脚本

2 个答案: