excel中生成随机数的方法.doc

《excel中生成随机数的方法.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、生成随机数悬赏分：0-解决时间：2008-4-1219:15如何生成一个五位的、没有0的、每个数位都不重复的随机数？提问者：golden_yi-秀才三级最佳答案PrivateSubForm_Click()Dima(1To5)AsInteger,bAsLongRandomizeFori=1To5a(i)=Int(Rnd*8+1)Forj=1Toi-1Ifa(i)=a(j)Theni=i-1NextjNextiFori=1To5b=Val(b&CStr(a(i)))NextiPrintbEndSub回答者：superman2008cc-

2、助理二级4-614:15提问者对于答案的评价：比较简洁评价已经被关闭    目前有1个人评价窗体顶端好100%（1）不好0%（0）窗体底端相关内容•C语言中怎样生成随机数？•VB生成随机数的问题.•急!!!用C语言编写按概率生成随机数!!!•EXCEL如何生成随机数?要求能够指定生成的随机数的...•用sqlserver生成随机数 更多相关问题>>查看同主题问题：生成随机数其他回答    共3条用，RND函数啊具体用法百度上搜，多了去了回答者：thought007-助理三级4-420:462楼还应该加个randomize回答者：vi

3、enaldoxx-经理四级4-421:09这种问题现在怎么这么多做个函数吧PublicFunctionGetRndNotRepeat(ByValNumMinAsInteger,ByValNumMaxAsInteger,ByValNAsInteger)'获取NumMin～NumMax范围内的N个不重复随机整数Dimarr()AsIntegerDimb()AsBooleanDimxAsIntegerDimiAsIntegerIfN>NumMax-NumMin+1OrNumMax<=NumMinOrN<1ThenReDimarr(-1To

4、-1)GetRndNotRepeat=arrExitFunctionEndIfReDimarr(N-1)ReDimb(NumMinToNumMax)RandomizeFori=0ToN-1Dox=Int(Rnd*(NumMax-NumMin+1))+NumMinLoopWhileb(x)b(x)=Truearr(i)=xNextiGetRndNotRepeat=arrEndFunction调用方法PrivateSubCommand1_Click()a=GetRndNotRepeat(1,9,5)IfUBound(a)>-1ThenF

5、ori=0ToUBound(a)PrintCStr(a(i));NextiEndIfEndSubA1:G1DimmrAsRangeDimiAsIntegerForEachmrInRange("a1:g1")DoWhileApplication.CountIf(Range("a1:g1"),mr)<>1Ormr=2mr=Int(Rnd()*8+1)LoopNextRand函数不过避免重复，但可以用变通的方法，比如：在A列中填充从0001～1000的考号，在B列中生成1000个随机数，然后以B列对整表排序，这时A列的考号自动打乱了。{=

6、SMALL(IF(ISNA(MATCH(ROW(INDIRECT("1:251")),E$2:E2,)),ROW(INDIRECT("1:251"))),CEILING((253-ROW())*RAND(),1))}A1输入=rand()下拉至A1000B1输入1,B2输入2,下拉至B1000,即B1000是1000点选a1:b1000,以A列排序B列便是1-1000的随机数,不顺序用途：返回一个大于等于0小于1的随机数，每次计算工作表(按F9键)将返回一个新的数值。语法：RAND()实例：公式“=RAND()*1000”返回一个大

7、于等于0、小于1000的随机数求EXCEL随机数生成方法(要求:如1-1000的随机数,不得重复,且1-1000必须有!)谢谢!输入公式=RAND()*1001回车，按F9键。OK