1、方法:在进行统计的时候,我们可能需要随机抽取一定数量的样本,比如从100个数中抽取40个,保证无重复性。工具:MicrosoftExcel2013步骤: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(
2、) * 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.re
3、rand: 5.x = Int(Rnd() * 100 + 1) 6.If xx(x) > 0 Then GoTo rerand 7.r = r + 1 精选范本,供参考!1.Cells(r, 1) = x 2.xx(x) = r 3.Next End Sub 步骤4同上结果:步骤5:排序选中抽取的数字---点选excel表的数据项----选择排序----确定精选范本,供参考!【本文档内容可以自由复制内容或自由编辑修改内容期待你的好评和关注,我们将会做得更好】精选范本,供参考!