Question

excel 如何随机生成不重复的10个数

比如在A1到A10，随机生成1-10之间数，要不重复，并且1-10都出现过
怎么做？请高手帮忙！
我问的是随机数，不是自动填充

Answer 1

1、利用一个辅助列比如C3到C12，在C3输入公式：=rand()向下拉到C12
2、然后在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。

Answer 2

这样即可：
先在A1:A10填充1～10的自然数列，在B1输入公式：
=RAND()
将B1向下填充至B10，再选中B、A两列，以B列排序，最后删除B列即为你要的结果。

Answer 3

帮你写一段代码：
按alt+f11进入vba编辑窗口--插入模块--把下面的代码复制到模块里面，按f5运行代码就可以了。这里假设你的表格叫sheet1，如果不是的话你可以把代码里面的sheet1替换成你表格的名字（已测试）

Sub rnd_test()
Dim t, i As Integer
Dim p(10) As Integer
For t = 1 To 10
Randomize
p(t) = Int(10 * Rnd) + 1
For i = 1 To (t - 1)
If p(t) = p(i) Then
p(t) = Int(10 * Rnd) + 1
i = 1
End If
Next i
Worksheets("sheet1").Activate
Range("a1").Select
ActiveCell.Offset(t - 1, 0).Value = p(t)
Next t
End Sub

Answer 4

那就对1-10这10个数随机排序，然后随机赋给相应的单元格。

Answer 5

=ROUND（1，10）