一、如何用EXCEL进行随机抽样
题目是 1 至 1000内, 选 100个不重复的随机数(要正整数)。
由于不重复的变量, 是要经循环程序去判断, 故单单写公式是不可解决。
最简单的方法, 是执行宏, 可用我刚写的以下代码, 100个不重复的变量便马上显示在A1:A100
Sub Randx()
Dim xx(1 To 1000) As Integer
For t = 1 To 100
rerand:
x = Int(Rnd() * 1000 + 1)
If xx(x) > 0 Then GoTo rerand
r = r + 1
Cells(r, 1) = x
xx(x) = r
Next
End Sub
如不懂VBA, 亦可用以下的蓄意循环运算办法, 但理论上不是100%会成功的, 而且太多数字, 会颇费时。
A1输入 =IF(SUM($B$1:$B$100)<>100,INT(RAND()*1000+1),A1)
B1 输入 =COUNTIF($A$1:$A4100,A1)
将A1:B1 下拖至 A100:B100
然后选 工具 → 选项 → 计算→ 重复运算 打勾→ 最高次数 10000次→确定
A1:B100 便会不停运算
如 运算 10000次后, 尚未成功, 可再按 F9, 再执行运算, 直至成功
如成功, 应即 马上将A1:A100 做黏贴值, B1:B100 清除内容, 及将重复运算脱勾, 完成。
请细心测试!
二、如何用excel进行抽样
用excel进行抽样的具体步骤如下：
需要准备的材料分别是：电脑、Excel表格。
1、首先打开需要编辑的Excel表格，点击打开开发工具中的“加载项”。
2、然后在弹出来的窗口中点击选择“分析工具库”，回车确定。
3、然后在弹出来的窗口中点击打开数据中的“数据分析”。
4、然后在弹出来的窗口中点击选择“抽样”，回车确定。
5、然后点击“输入区域”选择要抽样的数据区域，随机样本数选择想要抽样的数量，输出区域选择抽样出来的数据放置的单元格，回车确定即可。
