怎样用 Excel从100个数中随机抽取50个，谢谢 将100个数拷贝到A列在宏填写代码如下：Sub seldata()Dim r As Longr=Range(\"a65536\").End(xlUp).RowRandomizeFor j=1 To 50Randomizei=Int((r-1+1)*Rnd+1)Cells(j，2).Value=Cells(i，1).ValueNext jEnd Sub运行宏seldata在B列中可得到随即且不重复的数值。
Excel如何实现随机抽取，今天跟大家分享一下Excel如何实现随机抽取
如何在excel中实现随机在1-50之间抽取10个不重复数值，并按升序排列返回在并排的10个单元格内？ 编制一个知宏道abc，运行宏abc，就可回以了，宏代答码：Sub abc()For i=1 To 10Cells(i，\"A\")=Int(Rnd()*50)+1If i>；1 ThenFor j=1 To i-1If Cells(i，\"A\")=Cells(j，\"A\")Theni=i-1Exit ForEnd IfNext jFor j=1 To i-1If Cells(i，\"A\")(j，\"A\")Thenb=Cells(i，\"A\")Cells(i，\"A\")=Cells(j，\"A\")Cells(j，\"A\")=bEnd IfNext jEnd IfNext iEnd Sub
excel中，有1到50的数字，怎么样从中随机抽取13个数字？ 楼上的可能有重复可能！一列1-50二列＝rand()*10000，拖以二列排序选前13个
EXCEL中，对一列数（假设50个），需要随机抽取25个数字来取其标准差， Dim A(1 To 25)A(1)=Int(50*Rnd+0.5)For I=2 To 25again：A(I)=Int(50*Rnd+0.5)For j=1 To I-1If A(j)=A(I)Then GoTo againNext jNext I以上是取随机数的方法，具体怎么用你自己再整理吧
