问：EXCEL RAND()公式 如何避免产生重复的随机数

1. 答：工具/材料：Microsoft Office Excel2016版，Excel表格。
   1、首先选中Excel表格，双击打开。
   2、然后在该界面中，选中要显示随机数的单元格。
   3、再者在该界面中，公示框中输入随机数公式“=RAND()”。
   4、其次在该界面中，选中单元格右下角，向下拖动。
   5、继续在该界面中，选中要用的随机数单元格，右键点击“复制”选项。
   6、然后在该界面中，选中第二列，右键点击“粘贴”选项。
   7、然后在该界面中，选中要显示不重复的随机数的单元格。
   8、再者在该界面中，公示框中输入不重复的随机数公式“=RANK(B1,B$1:B$10)”。
   9、其次在该界面中，选中单元格右下角，向下拖动。
   10、最后在该界面中，成功显示不产生重复的随机数的单元格。

问：excel随机数不重复的问题

1. 答：1、在工作表左上角的名称框中输入A1:A60 按确定，将A1:A60单元格选中，输入=RAND()  按Ctrl+Enter组合键结束
   2、在B1单元格输入以下公式，然后向下填充公式
   =RANK(A1,A:A)
   公式表示：返回A1在A列中的排名，因RAND()几无重复，因此返回的排名都是唯一的，符合1-60随机且不重复的要求。
   3、可根据需要，隐藏A列。
2. 答：在A1里面A1-A999中用公式生成999个随机数=RAND()
   B1-B60中用公式排序，B1中输入=RANK(A1,$A$1:$A$999)，一直拉到B60
   B1：B60就是1-60个不重复的随机数字
3. 答：给你两个代码:
   1、只能在某一列进行，比如在A1：A60
   Sub Emily08112005()
   Dim DrawnArray(1 To 60) As Boolean
   Dim NumArray(1 To 60, 0) As Integer
   Erase DrawnArray
   For i = 1 To 60
   num = Int(60 * Rnd + 1)
   Do While DrawnArray(num) = True
   num = Int(60 * Rnd + 1)
   Loop
   DrawnArray(num) = True
   NumArray(i, 0) = num
   Next i
   Sheet1.Range("A1:A60") = NumArray
   End Sub
   2、可以在某一个区间内，比如A1：F10
   Sub five()
   For Each c In Range("A1:F10")
   c.Value = Int(Rnd() * 60) + 1
   Do While WorksheetFunction.CountIf(Range("A1:F10"), c) > 1
   c.Value = Int(Rnd() * 60) + 1
   Loop
   Next
   End Sub
4. 答：excel工作表窗口中，同时按ALT和F11两个键，进入VBA编程界面，然后点击VBA菜单;“插入－模块”，在右栏的空白区粘贴代码
   回到excel工作表窗口，点击菜单：工具－宏－宏，点选宏的名字 yyy，再点击“执行”按钮
   在A1：A60自动生成不重复的随机数
   sub yyy()
   Dim i As Integer, j As Integer, a(1 To 60) As Integer
   Randomize
   For i = 1 To 60
   a(i) = Int(Rnd * 60) + 1
   For j = 1 To i - 1
   If a(i) = a(j) Then
   j = i - 1
   i = i - 1
   End If
   Next
   Next
   Range("a1").Resize(i - 1, 1) = Application.Transpose(a)
   end sub
5. 答：=RANDBETWEEN(1,60)

问：excel如何随机生成不重复整数？

1. 答：1、首先在excel表格中输入随机函数公式：=rand()。
   2、点击回车并下拉公式即可得到一组随机函数，先将该组随机函数复制粘贴为数值，将其固定显示在单元格中。
   3、然后再其右侧的空白单元格中输入公式：=RANK($B$3:$B$12,$B$3:$B$12)。
   4、点击回车并下拉公式即可得到一组不重复的随机整数。
2. 答：1、新建Excel，在E列输入学号，在D2单元格输入函数  =RAND()，该函数会返回一个0~1的小数，按Enter。
   2、鼠标点击上述生成的随机数，指针放置单元格右下角，变成+号时，拖动鼠标至D31单元格。
   3、此时D列形成的30个随机数如下
   4、选择F2:F31单元格，在编辑栏中输入公式 =RANK(D2:D31,D3:D31)，按Ctrl+Shift+Enter键进行确认。
   5、F列生成的30个随机整数如下所示，没有重复的。
   6、若看着D列不太舒服，可以将其隐藏，效果如下。随便点击一个空白格，按Delete键，可更新这30个整数的顺序。
3. 答：利用一个辅助列比如C3到C12，在C3输入公式：=rand()向下拉到C12，然后在B3利用排序函数得到1~10的不重复数字，B3输入公式：=RANK(C3,$C$3:$C$12)向下拉到B12。如果你觉得C列碍眼，可以把C列隐藏，也可以先复制B列，再在B列选择性粘贴/数值/确定，就可以把C列删除了。
   把辅助列建在其他工作表，比如在Sheet2的C3（也可以其他单元格，但后面公式要相应更改）输入公式：=rand()向下拉到C12，然后在你的表格Sheet1的B3输入公式：=RANK(Sheet2!C3,Sheet2!$C$3:$C$12)向下拉到B12。
   公式法：
   我们以生成1-10范围内的随机数字为例，讲述方法。 首先，在A2单元格中输入公式：=SMALL(IF(COUNTIF($A$1:A1,ROW($1:$11))=0,ROW($1:$11)),INT(RAND()*(11-ROW(A1))+1)) 然后按下Ctrl+Shift+Enter三键结束数组公式；
   然后，下拉填充公式到A12单元格，也就是填充11个单元格，为什么要填充11个呢，我们明明只要10个数字？这是因为，最后一个数字是不会变化的，所以呢，要生成10个随机数，需要填充11个单元格，同样的生成11个随机数的话，要填充12个单元格，除此之外，公式中的11还要改成12。
   生成随机数后，每按下一次F9（或者其他单元格进行一次计算），随机数就会刷新一次，重新生成一组随机；
   Small函数的第二个参数，也就是从这个序列中取第几个最小值，在得到的数字中，利用随机函数rand和row函数，实现在这有个个数中随机抽取一个数字，从而得到排序中这个数字顺序的一个数字。通过这样一个数组公式，就实现了生成一组不重复的随机数字。
4. 答：1、选择A1:A100单元格，输入=RAND()   按Ctrl+Enter组合键结束；
   2、选择B1:B100单元格，输入=RANK(A1,A:A)  按Ctrl+Enter组合键结束，生成100个不重复的随机整数。
    
   详见附图