Excel表格数据很多,我想从近2000组数据中随机抽样选100组,该怎么做? 我纯新手,求简单方法.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 21:58:47
Excel表格数据很多,我想从近2000组数据中随机抽样选100组,该怎么做? 我纯新手,求简单方法.
比如,如果您的Excel有1000人,想从这1000个人当中抽出100个人来做样品,那么,如何做呢?当然,前提条件是,抽样出来的这100个人,不是重复的人.
我们可以使用的函数的方法和VBA的方法来解决上述或类似的难题.
说白了,所谓的抽样,无非就是取随机数的问题.
一、使用函数实现抽样
如不懂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 清除内容, 及将重复运算脱勾, 完成.
二、使用VBA抽样的方法
条件为:1 至 1000内, 选 100个不重复的随机数(要正整数).
由于需要不重复的变量, 所以必须要经循环程序去判断.
最简单的方法, 是执行宏, 可用如下的代码, 100个不重复的变量便马上显示在A1:A100
Sub 我的抽样()
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 Su
我们可以使用的函数的方法和VBA的方法来解决上述或类似的难题.
说白了,所谓的抽样,无非就是取随机数的问题.
一、使用函数实现抽样
如不懂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 清除内容, 及将重复运算脱勾, 完成.
二、使用VBA抽样的方法
条件为:1 至 1000内, 选 100个不重复的随机数(要正整数).
由于需要不重复的变量, 所以必须要经循环程序去判断.
最简单的方法, 是执行宏, 可用如下的代码, 100个不重复的变量便马上显示在A1:A100
Sub 我的抽样()
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 Su
EXCEL表格中随机提取200个数据怎么做?
excel表格有两列数据,我想把这两列数据中重复的部分列在第三列应该怎么做?
excel表格中数据同时乘以某系数该怎么做?
怎么在Excel表格中做数据透视表
excel表格一列里面有两组数据怎么分开 比如:123456/987456都在A1里面,现在要把两组数据分开该怎么做?
excel表格中这个数据怎么统计
EXCEL数据表格中函数怎么写?
excel表格怎么求两个数据之间共有几个数据
Excel表格随机数据公式:100至200之间的数据随机公式是什么
我在做物理实验时电脑测了很多很多组数据,怎样将这些数据很快的输入在WPS表格中?
excel表格中怎样计算某组数据的平均值?
求excel表格数据公式