随机生成不重复的数字

问：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个不重复的随机整数。
    
   详见附图
    

问：excel随机生成范围内数字,不重复

1. 答：我们生成多个随机的不重复数，可以实现通过随机生成的数字做分组用。
   生成简单的随机数很简单，但是要生成不重复的随机数相对而言会比较麻烦。
   这里从易到难介绍几种解决问题的方法。
   操作方法
   01
   我们这里假定要
   在B列生成20个随机且不重复的数据，然后根据随机计算的结果给A列的姓名进行排序及分组。
   02
   如果我们
   单纯地以RANDBETWEEN函数来做（下图1），生成的数据会有重复数。
   03
   作者给出的对策如下：
   1）在C列建立辅助列，然后输入：=RAND()
   RAND函数的作用是
   生成0到1之间的随机数字，因为是很多位数的小数，所以基本不会出现重复值（或者说概率低到可以忽略不计）。
   辅助列相关知识请参考下方经验：
   04
   如果仍然担心会出现重复值，我们可以
   再使用一个RAND函数与之相乘，进一步降低出现重复值的概率。
   05
   2）在B列使用RANK函数对C列的数据进行排序。
   由于C列的数值没有重复，所以RANK函数排序后的结果也不会发生重复。
   06
   上面的办法是比较简单的办法，我们也可以参考下图函数公式操作，但相对比较麻烦，有兴趣可以研究研究。
   07
   3）RAND函数和RANDBETWEEN函数都可以
   通过按F9键进行数据更新。

问：excel 在某一范围随机生成不重复的数字且数字之间相差最小为2

1. 答：还是用代码最理想：
   代码如下：
   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim i, j, t
   For i = 2 To 5
       Do
           Range("A" & i) = Application.WorksheetFunction.RandBetween(100, 200)
       For j = 1 To i - 1
           t = Abs(Range("a" & i) - Range("a" & i - j))
           If t < 2 Then Exit For
       Next j
       Loop Until t > 1
   Next i
       
   End Sub
2. 答：伤脑筋，明明相差了不知道有多少个2了。
   103和186差了多少个2？你算过没。
   186和153差了多少个2？你算过没。