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

发布网友

我来回答

共4个回答

热心网友

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

热心网友

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

热心网友

楼主，你好！其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

执行结果如下：

热心网友

我给公司写了一个抽奖的