用excel实现随机抽签
先看看程序运行情况：将数据复制粘贴进去，点开始开始生成数据，停止产生结果。

实现代码
''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 程序制作：江西生物科技职业学院'
' 真随风'
' 2011-10-18 '
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim i, j, k As Integer
Dim Flag As Boolean
Dim str$
Sub 按钮1_Click()
Flag = False
If Cells(1, 1) = "准备就绪" Then
Cells(1, 1) = "正在生成"
Do Until Flag
Call dornd
DoEvents
Loop
End If
End Sub
Sub dornd()
i = getcell
For j = 1 To i
Cells(j + 2, 1) = ""
Next
j = 1
Do Until j > i Or j = 10000
k = Int(Rnd(j / 10) * (i) * 10)
If k < i And Cells(k + 3, 1) = "" Then
Cells(k + 3, 1) = j
j = j + 1
End If
Loop
End Sub
Function getcell()
i = 3
Do While (Cells(i, 2)) <> ""
i = i + 1
Loop
getcell = i - 3
End Function
Sub 按钮11_Click()
Cells(1, 1) = "准备就绪"
Flag = True
MsgBox ("已确定随机顺序")
str = "A2:Z" & getcell + 2 & ""
Range(str).Select
'excel 2003
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
'excel 2007
'ActiveWindow.SmallScroll Down:=-18
'ActiveWorkbook.Worksheets("excel程序随机抽签").Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("excel程序随机抽签").Sort.SortFields.Add Key:=Range("A2") _
' , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'With ActiveWorkbook.Worksheets("excel程序随机抽签").Sort
' .SetRange Range(str)
' .Header = xlYes
' .MatchCase = False
' .Orientation = xlTopToBottom
' .SortMethod = xlPinYin
' .Apply
'End With
End Sub
Sub Macro1()
'
' Macro1 Macro
' 宏由微软中国录制，时间: 2011-10-19
'
'
Range("F14:J20").Select
Selection.Sort Key1:=Range("F14"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub
不用你自己编写了，下载吧。