随机函数与随机抽查.docVIP

随机函数与随机抽查 随机函数就是随机产生数的函数，是EXCEL中很重要的函数。比较简单，格式为“=rand()”，无参数，其结果是生成0-1之间的随机数。 　 一、几种常见用法： 　 1、生成随机数字 　 (1)生成0-1之间的随机数字 这是最基本的用法，但比较简单，在任意单元格输入“=rand()”，即可生成0-1之间的随机数。 (2) 生成0-9之间的随机整数 这要与取整函数联合应用。在任意单元格输入“=int(rand()*10)”， 即可生成0至9的整数，以此类推； 　　 (3)生成a与b之间的随机实数 还是与取整函数联合应用。在任意单元格输入“=rand()*(b-a)+a”， 即可生成生成a与b之间的随机实数。 (4)生成a与b之间的随机整数 还是与取整函数联合应用。在任意单元格输入”“=int(rand()*(b-a))+a”即可。 (5) 生成固定位数的随机整数 以三位整数为例，其余类推。 在任意单元格输入“=int(rand()*1000)”即可。 注意：如果要使用函数rand()生成一随机数，并且使之不随单元格计算而改变，可以在编辑栏中输入“=rand()”，保持编辑状态，然后按F9，将公式永久性地改为固定数字。不过，这样只能一个一个的永久性更改，如果数字比较多，也可以全部选择之后，另外选择一个合适的位置粘贴，粘贴的方法是点击右键，选择“选择性粘贴”，然后选择“数值”，即可将之前复制的随机数公式产生的数值（而不是公式）复制下来！ 2、产生随机字母 　 　随机小写字母：“=CHAR(INT(RAND()*26)+97)”　 随机大写字母：“=CHAR(INT(RAND()*26)+65)” 随机大小写混合字母： “=CHAR(INT(RAND()*26)+if(INT(RAND()*2)=0,65,97))” 　 3、产生随机的六位数的字母和数字混合 =CONCATENATE(IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97)))),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*9+48)),IF(INT(RAND()*2)=0,CHAR(INT(RAND()*25+65)),CHAR(INT(RAND()*25+97))))) 　　 4、随机不重复数字序列的生成方法一 有些情形下，我们需要生成一个不重复的随机序列。比如：我们要模拟洗牌，将一副扑克牌去掉大小怪后剩下的52张打乱。比较笨的方法是在1-52间每生成一个随机数后，检查该随机数是否出现过，如果是第一次出现，就放到序列里，否则重新生成一个随机数作检查。在 excel worksheet里面用这种办法，会造成if多层嵌套，不胜其烦，在VBA里面做简单一些，但是效率太差，越到序列的后端，效率越差。 当然也有比较好的办法，在VBA里面，将a(1)-a(52)分别赋予1-52，然后做52次循环，例如，第s次生成一个1-52间的随机数r，将a(s)与a(r)互换，这样的话，就打乱了原有序列，得到一个不重复的随机序列。VBA里这个算法是很容易实现的，但是，出于通用性和安全考虑，有的时候我们并不希望用VBA。 我们来看看在worksheet里面如何利用内置函数实现这个功能。 　　 (1)在A1-A52间填入=INT(RAND()*52)+1，产生1-52间的随机数，注意这里是有重复的。 (2)在B1-B52间填入1-52 (3)在C54-BB54填入1-52 　　 (4)在C1填入 =IF(