使用排序辅助列、INDEX与RANK组合、动态数组函数或VBA宏可在Excel中生成不重复随机数。1、排序法为数字列添加RAND值后排序；2、RANK法用RANK+COUNTIF生成唯一排名并索引数值；3、动态数组法用SORTBY与RANDARRAY打乱SEQUENCE序列；4、VBA法通过字典对象循环插入随机数避免重复，适用于高频或复杂需求场景。
如果您需要在Excel中生成一组不重复的随机数，例如用于抽奖、抽样或数据测试，直接使用RAND或RANDBETWEEN函数可能会产生重复值。以下是几种有效的方法来确保生成的随机数完全不重复。
本文运行环境：Dell XPS 13，Windows 11
一、使用排序辅助列生成不重复随机数
该方法通过为一组有序数字添加随机权重，再按权重排序，从而打乱顺序并提取所需数量的不重复数值。
1、在A列输入需要的数字范围，例如从1到100，可在A1输入1，A2输入2，选中后双击填充柄完成自动填充。
2、在B1单元格输入公式：=RAND()，然后拖动填充至与A列相同行数，为每个数字分配一个随机值。
3、选中A列和B列的数据区域，点击“数据”选项卡中的“排序”按钮，选择按B列升序或降序排列。
4、排序完成后，A列中的数值即为随机打乱顺序的不重复数字，可复制前N个作为结果使用。
二、利用INDEX与RANK组合提取无重复随机序列
此方法基于RAND函数生成的随机值进行排名，并通过排名索引原始序列，避免重复输出。
1、在C列输入公式：=RAND()，共填写N行（如需10个不重复数，则填10行）。
2、在D1单元格输入公式：=RANK(C1,C:C)+COUNTIF(C$1:C1,C1)-1，向下填充以获得唯一的排名编号。
3、假设基础数字列表位于F列（如F1:F100包含1到100），在G1输入公式：=INDEX(F:F,D1)，向下填充即可得到对应数量的不重复随机数。
三、使用动态数组函数（适用于Excel 365或Excel 2022）
新版本Excel支持动态数组功能，可通过简洁公式一次性生成不重复随机数序列。
1、在任意空白单元格输入以下公式：=INDEX(SORTBY(SEQUENCE(100),RANDARRAY(100)),SEQUENCE(10))。
2、该公式含义是：生成1到100的序列，用RANDARRAY生成100个随机数作为排序依据，SORTBY按随机数打乱顺序，最后用INDEX取出前10个值。
3、若需调整范围或数量，修改SEQUENCE的第一个参数为目标总数，最后一个SEQUENCE参数为目标提取个数即可。
四、通过VBA宏代码批量生成不重复随机数
VBA可以精确控制逻辑流程，适合需要频繁生成或复杂条件下的场景。
1、按下Alt + F11打开VBA编辑器，在新建模块中粘贴以下代码：
Sub GenerateUniqueRandom()
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Randomize
Do While dict.Count num = Int((100 * Rnd) + 1)
If Not dict.Exists(num) Then dict.Add num, 1
Loop
Range("A1").Resize(10, 1) = Application.Transpose(dict.Keys)
End Sub
2、关闭编辑器，返回Excel，按下Alt + F8运行宏GenerateUniqueRandom。
3、程序将在A1:A10输出10个1到100之间的不重复随机整数。
