EXCEL抽签程序,要求不要重复抽过的

发布网友发布时间：2022-04-23 16:44

我来回答

共4个回答

热心网友时间：2023-10-09 16:09

公司年会做过一个活动抽奖工具。

热心网友时间：2023-10-09 16:10

用字典搞就型了，这个是不允许重复的

热心网友时间：2023-10-09 16:10

楼主，你好！其VBA程序代码如下，望笑纳。

Sub choujiang()
Dim i1, i2, i3, i4, i5
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")

Do
i1 = i1 + 1
i2 = Int(Rnd() * 1000)
i3 = Application.WorksheetFunction.CountIf(mysheet1.Range("A2:A10000"), i2)

If i3 = 0 Then
i4 = 1
Do
  i4 = i4 + 1
  If mysheet1.Cells(i4, 1) = "" Then
   mysheet1.Cells(i4, 1) = i2
   Exit Do
  End If
  If i4 > 200000 Then
   Exit Do
  End If
Loop
Exit Do
End If
If i1 > 200000 Then
  Exit Do
End If
Loop

MsgBox "中奖号码为：" & i2

End Sub

执行结果如下：

热心网友时间：2023-10-09 16:11

我给公司写了一个抽奖的

EXCEL抽签程序,要求不要重复抽过的

公司年会做过一个活动抽奖工具。

急求一个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) = C...

如何做一个excel抽签,而且抽过的内容不再被第二次抽出?

Excel中，由952组数据中随机抽取360组不重复的数据。开启分步阅读模式工具材料：安装Excel程序的电脑操作方法 01 如果数据在Sheet2 的A:D列，在Sheet2的A列前插入两列辅助列；02 在左上角的名称框中，输入A2:A953，按Enter键，将A2:A953单元格选中，输入=RAND()，按Ctrl+Enter组合键结束，快速向...

急求一个EXCEL抽签程序(1到30号),主要用于演讲比赛抽签,但是不能到现...

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

急求一个在excel中使用的随机抽签排序程序,要求抽签前所有备抽人员在e...

1、A1:A10输入公式=rand()2、在B1:B10输入公式B1=rank(A1,$A$1:$A$10),下拉到B10 3、在E1:E10输入1-10 4、在F1:F10输入人名 5、在C1输入公式 C1=VLOOKUP(B1,$E$1:$F$10,2,0),下拉到C10 6、启动按住F9，放开停止即可，无需其他操作，如果不想让其他人看到ABEF列的数字，把字体调...

excel1,2,3三个人如何随机不重复抽签。有公式吗

选择A1:A3，输入=RAND() 按Ctrl+Enter组合键结束；B1输入=RANK(A1,A:A) 然后向下填充公式，每按一下F9，随机更新一次。

excel2013 如何进行监考考场抽签不重复

您提供的组合字母只能排列出九组不重复组合。六人只能监考三场。

分组抽签EXCEL求助

A1-A108为姓名,B1输入公式 =RAND(),下拉至108行选中B1,右键,排序,升序,这样A列也随之打乱了,自己分成3段就行了

怎样在excel制作一个用于抽签函数利用excel抽签

1、打开电脑后，直接进入到excel软件中，新建一个空白的表格文档，在表格中某一列单元格中录入好我们要抽取的内容，例如姓名，编号等等。2、录入完成后，我们在当前表格文档中重新再去选择一个单元格，将其作为最终抽取结果的展示用。3、接着我们在该抽奖结果单元格中输入以下公式：“=INDEX(A:A，...

excel 做抽签宏,要求指定数字,且出现过的数字不能再出现

用字典对象和伪随机函数实现。抽出一个就从字典里删除如果需要代码请提供具体信息，指定的数字是什么，抽签的方式是什么，包括界面等等