Excel随机抽样的简单方法

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 我的抽样() 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