方法:在进行统计时候,我们可能需要随机抽取一定数量样本,比如从100个数中抽取40个,确保无反复性。工具:MicrosoftExcel步骤:“视图”-“宏”-“录制宏”,宏名任取,然后“确定”。“宏”-“停止录制”;再选择“宏”-“查看宏”。“编辑”按钮,将下面代码粘贴覆盖原有代码。以下复制粘贴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"按钮,在excelA列就能够发觉随机生成40个数了。实践:从个数中抽取51个,确保无反复性。步骤1,2同前步骤3:复制粘贴Sub Randx() Dim xx(1 To ) 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表数据项----选择排序----确定
用excel进行随机抽样样本 来自淘豆网www.taodocs.com转载请标明出处.