比赛随机录入画稿

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

这些都是进入比赛的参赛者，需要随机select一名获胜者。

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

Answer 1

以下假设您的参赛者名单在名为“参赛者”的范围内。 当然，关于系统生成的随机数字通常不是随机应用的警告 – 适用于本地/小规模的有趣竞争，可能不是全国彩票的解决scheme。

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]