作者：乔山办公网日期：
返回目录：excel表格制作
函数RAND()产生的是0到1之间的随机小数.
产生a(小)与百b(大)两个数之间的随机数用公度式
=RAND()*(b-a)+a
在其它任意单元格中按Delete键可以产生包含a、b的随问机小答数。
如果要产生a、b（包含a、b，是整数）的随机整数，可以采取四舍五入取整法，公式为专
=ROUND(RAND()*(b-a),0)+a
试试有没有用。
对不起，没有查到函数RANDBETWEEN(a,b)，不晓得是属什么意思，不能解惑。
用rand函数
操作方法：
7a64e58685e5aeb9365①生成A与B之间的随机数字（A<随机数<B）
在第一个格子中输入：=RAND（）*（B-A）+A
如，生成1到10之间的随机数字，输入：=RAND（）*9+1
其余数字，将鼠标至于该格子右下角，变为十字时，向下拖拉即可。
②生成A与B之间的随机整数（A<随机数<B）
在第一个格子中输入：=INT（RAND（）*（B-A）+A）
如，生成1到10之间的随机整数，输入：=INT（RAND（）*9+1）
其余的，将鼠标至于格子右下角，变为十字时，向下拖拉即可。
其余数字，将鼠标至于该格子右下角，变为十字时，向下拖拉即可。
③生成A与B之间的随机数字（A≤随机数≤B）
在第一个格子中输入：=INT（RAND（）*（B-A+1））+A
如，生成1到100的随机整数，输入：= INT（RAND（）*100）+1
其余数字，将鼠标至于该格子右下角，变为十字时，向下拖拉即可。
④生成A与B之间的随机整数（A≤随机数≤B）
在第一个格子中输入：=RAND（）*（B-A+1）+A
如，生成1到100的随机整数，输入：=RAND（）*100+1
其余数字，将鼠标至于该格子右下角，变为十字时，向下拖拉即可。
⑤若是2007或2010版，生成A与B之间的随机整数（A≤随机数≤B）
在第一个格子中输入：=RANDBETWEEN（A，B）即可。
如，生成1到10之间的随机整数，输入：=RANDBETWEEN（1，10）
如想得到随机小数，则输入：=RANDBETWEEN（1，100）/10
⑥其他：2003版以上的
在第一个格子中输入：=RAND（）
得到大于等于0，小于1的随机数
若1－52在A2：A53，B列无数据(如有则插入一列)
用zhidaoVBA：代码如下：
Sub subN()
'需要取数的个数,20可改专为25或其他
n = 20
Randomize
For i = 2 To 53
Cells(i, 2) = Rnd()
Next i
Range("A2:B53").Sort Key1:=Range("B1")
'删除 B2:B53 的数
' Range("B2:B53").ClearContents
' 对择需要的属数据排序
Range(Cells(2, 1), Cells(n + 1, 1)).Sort Key1:=Range("A1")
'选择需要的数据
Range(Cells(2, 1), Cells(20 + 1, 1)).Select
End Sub
因为条件百要求每个数字在同一行不重复，且是随机1-33的数字。
1、在A18:AG18中输入度=RAND() 按Ctrl+Enter组合键结束，然后向下填知充道9行；
2、在B2单元格输入以下公式，然后向右向下填充
=RANK(OFFSET($A18,,B$1-1),18:18)&","&RANK(OFFSET($A18,,B$1+11-1),18:18)&","&RANK(OFFSET($A18,,B$1+22-1),18:18)
公式按照每一行的RAND()随机数在该行的排序序号进行组合，重内复的可能性极小，满足了随机且为容整数的需要，
详见附图