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