文档介绍:方法: 在进行统计的时候,我们可能需要随机抽取一定数量的样本,比如从100个数中抽取40个,保证无重复性。
工具:Microsoft Excel 2013
步骤:“视图”-“宏”-“录制宏”,宏名任取,然后“确定”。
“宏”-“停止录制”;再选择“宏”-“查看宏”。
“编辑”按钮,将下面的代码粘贴覆盖原有代码。
以下复制粘贴
Sub Randx()  
Dim xx(1 To 100) As Integer  
For t = 1 To 40  
rerand:  
x = Int(Rnd() * 100 + 1)  
If xx(x) > 0 Then GoTo rerand  
r = r + 1  
Cells(r, 1) = x  
xx(x) = r  
Next  
End Sub  
"F5"按钮,在excel的A列就可以发现随机生成的40个数了。
实践:
从2000个数中抽取51个,保证无重复性。
步骤1,2 同前
步骤3: 复制粘贴
Sub Randx()  
Dim xx(1 To 2000) As Integer  
For t = 1 To 50  
rerand:  
x = Int(Rnd() * 100 + 1)  
If xx(x) > 0 Then GoTo rerand  
r = r + 1  
Cells(r, 1) = x  
xx(x) = r  
Next  
End Sub 
步骤4同上
结果:
步骤5: 排序选中抽取的数字--- 点选excel 表的数据项----选择排序----确定