方法: 在进行统计的时候，我们可能需要随机抽取一定数量的样本，比如从100个数中抽取40个，保证无重复性。

工具：Microsoft Excel 2013
步骤：1.选择“视图”-“宏”-“录制宏”，宏名任取，然后“确定”。

2.选择“宏”-“停止录制”；再选择“宏”-“查看宏”。

3.选择“编辑”按钮，将下面的代码粘贴覆盖原有代码。

以下复制粘贴
1.Sub Randx()
2.Dim xx(1 To 100) As Integer
3.For t = 1 To 40
4.rerand:
5.x = Int(Rnd() * 100 + 1)
6.If xx(x) > 0 Then GoTo rerand
7.r = r + 1
8.Cells(r, 1) = x
9.xx(x) = r
10.Next
11.End Sub
4.点击工具栏的按钮或者"F5"按钮，在excel的A列就可以发现随机生成的40个数了。

实践:
从2000个数中抽取51个，保证无重复性。

步骤1,2 同前
步骤3: 复制粘贴
1.Sub Randx()
2.Dim xx(1 To 2000) As Integer
3.For t = 1 To 50
4.rerand:
5.x = Int(Rnd() * 100 + 1)
6.If xx(x) > 0 Then GoTo rerand
7.r = r + 1
8.Cells(r, 1) = x
9.xx(x) = r
10.Next
End Sub
步骤4同上
结果:
步骤5: 排序选中抽取的数字--- 点选excel 表的数据项----选择排序----确定。