Excel随机抽样的简单方法

Excel随机抽样的简单方法比如，如果您的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:A100Sub我的抽样()Dimxx(1To1000)AsIntegerFort=1To100rerand:x=Int(Rnd()*1000+1)Ifxx(x)0ThenGoTorerandr=r+1Cells(r,1)=xxx(x)=rNextEndSub