UC知道EXCEL 随机数问题
来源：百度知道 编辑：UC知道 时间：2024/05/31 06:59:16
是期末一道考试题。
在以下
A1~A6,这6个单元格中，随机填充 1-6 这6个数字，不得重复。
重点：随机且不得重复。
后来问了老师啦。。
用这个：
=IF(B2=0,INT(RAND()*6+1),IF(COUNTIF($B$2:$B$7,B2)>1,INT(RAND()*6+1),B2))
还要设置迭代。。
在以下
A1~A6,这6个单元格中，随机填充 1-6 这6个数字，不得重复。
重点：随机且不得重复。
后来问了老师啦。。
用这个：
=IF(B2=0,INT(RAND()*6+1),IF(COUNTIF($B$2:$B$7,B2)>1,INT(RAND()*6+1),B2))
还要设置迭代。。
果然比我还聪明
我也聪明
既然是排序 ，自然有排序函数
在A1 ：A6 输入 =rand() 下拉
然后在 任意 6个单元格 分别输入
=rank($A$1,$A$1:$A$6)
=rank($A$2,$A$1:$A$6)
=rank($A$2,$A$1:$A$6)
=rank($A$2,$A$1:$A$6)
=rank($A$2,$A$1:$A$6)
=rank($A$2,$A$1:$A$6)
就出来了
我认为 这道考题 就是这个意思，。。。。。。。
简单办法：
a1-a6输入1-6
b1-b6输入公式 =rand()
按b列排序。
A1 输入 =rand()
下拉至A6
B1 输入 1, B2 输入 2, 下拉至 B6, 即B6 是 6
点选a1:b6, 以A列排序
B列便是 1-6的随机数, 不顺序
我要分啊！！！呵呵
excel中产生不重复的随机值
http://club.excelhome.net/viewthread.php?tid=257631，到这儿看看吧，讲得很清楚，还有实例呢！
可以用VBA来做
代码是
Sub rndnumber()
Dim rng As Range, rng1 As Range
Set rng = Range("a1:a6")
rng.ClearContents
For Each rng1 In rng
Do
rng1 = Int(Rnd * 6 + 1)
Loop Until