本文目录一览:

急求一个EXCEL抽签程序,要求不要重复抽过的,谢谢

用VBA代码(我设置的抽签1-100,不会有重复),如下:

Sub cq()

Range("c3:e3").ClearContents

Dim i As Byte

i = 3

T1:

Do While i 6

  If Cells(3, i) = "" Then

      Cells(3, i) = Application.RandBetween(1, 100)

  End If

  i = i + 1

Loop

If Application.Or(Cells(3, 3) = Cells(3, 4), Cells(3, 3) = Cells(3, 5), Cells(3, 4) = Cells(3, 5)) Then

  Range("c3:e3").ClearContents

  GoTo T1

End If

End Sub

效果如下(若图片没有动画,请点一下图片)

excel怎么把做多人抽签,比如说10个人,我想一下抽出5个,该怎么做公式?

你应该希望抽取到5 个不同的人后,就不再变化吧。但Excel中的用随机函数得到的结果会随着工作表中的任何操作,如输入内容、打开、保存,等等都会随时发生变化。这样得到的名单就会不断在变,显然不是我们需要的。

要使随机函数的结果不再变化,就要利用Excel的循环引用。所以在用公式前,要先在选项的公式选项卡中,将“启用迭代计算”打上对勾后确定。

如图,I1:I10中有个人的名字,J1:J5中要随机抽取5个不同的人。

选择J1:J5,输入公式:

=IF(OR(I1=0,I1="",COUNTIF(I$1:I$5,I1)1),INDEX(H$1:H$10,RANDBETWEEN(1,10)),I1)

按Ctrl+回车键,完成公式输入,得到结果。

EXCEL中如何利用函数公式,在1-30内随机抽选20个整数且不重复,求助高手帮忙解决。

在A1-A30输入1-30,B1-B30输入=rand(),

C1输入=INDEX(A$1:A$30,RANK(B1,B$1:B$30)),向下拖到C20。结果一定不会重复。

文件已发邮箱。

excel随机函数问题,如何设置随机函数从1-10中随机抽取3个名字,不重复。

1.选定A1:A10,输入:

=rand()

按Ctrl+Enter

2.在B1输入公式:

=RANK(A1,$A$1:$A$10)

下拉到B3

3.B1:B3就是1-10随机抽取的三个数

每按一次F9,会在B1:B3得到1-10随机抽取的不重复的三个数

4.再用index函数,可实现数字到名字的对应。

例如,C1=INDEX({"名字1","名字2","名字3","名字4","名字5","名字6","名字7","名字8","名字9","名字10"},B1)

下拉到C3