急求一个EXCEL抽签程序（1到30号），主要用于演讲比赛抽签，但是不能到现场抽签的人，不要重复，谢谢

如图，C2公式：

=LARGE(IF(COUNTIF(c$1:c1,ROW($1:$30))=0,ROW($1:$30)),RANDBETWEEN(1,31-ROW(a1)))

数组公式，CTRL+SHIFT+回车，下拉；

Option Explicit

Private Sub Command1_Click()

'定义一个数组来存储人名

Dim RStr(0 To 9) As String

Dim i, j, k

'给要滚动的数给赋值

'实际使用应该是 RStr(0)=

以上就是关于急求一个EXCEL抽签程序（1到30号），主要用于演讲比赛抽签，但是不能到现场抽签的人，不要重复，谢谢全部的内容，包括:急求一个EXCEL抽签程序（1到30号），主要用于演讲比赛抽签，但是不能到现场抽签的人，不要重复，谢谢、求助电脑抽签小程序。我是教师，上课点人回答问题用。谢啦、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！