Excel抽奖程序不重复。

你需要添加一个初始化按钮，代码如下(commandbutton1是你的下一个，commandbutton2是初始化按钮)。

Dim arr()，计数

私有子命令按钮1_Click()

如果计数& lt那么= 29

n = Int(Rnd *(UBound(arr)-LBound(arr)+1))+LBound(arr)

文本框1。文本=数组(n)

Cells (count+1，10) = arr (n)'测试代码可以删除。

单元格(count+1，11) = n '测试代码可以删除。

计数=计数+ 1

arr(n) = arr(UBound(arr))

如果UBound(arr)>1然后ReDim Preserve arr(1到UBound(arr) - 1)

其他

MsgBox“所有人员已抽完烟”

如果…就会结束

末端接头

私有子命令Button2_Click()

ReDim arr(1到30)

使不规则化

文本框1。文本= " "

对于i = 1到30

arr(i) = Cells(i，1)

然后

MsgBox“已初始化”

计数= 0

末端接头