在进行统计的时候,我们可能需要随机抽取一定数量的样本,比如从100个数中抽取40个,保证无重复性。
工具:Microsoft Excel 2013
步骤:1.选择“视图”-“宏”-“录制宏”,宏名任取,然后“确定”。
2.选择“宏”-“停止录制”;再选择“宏”-“查看宏”。
3.选择“编辑”按钮,将下面的代码粘贴覆盖原有代码。
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
4.点击工具栏的按钮或者"F5"按钮,在excel的A列就可以发现随机生成的40个数了。