excel中1-500无重复的整数随机函数

Question

excel中，A1：A500需生成一列1-500的不重复的随机整数，请教高手，公式如何写？

Answer 1

'楼上的都不方便(主要是不能保证A1-A500不重复)，给你搞个VBE代码.
'用法：打开excel文档，然后按alt+f11进入vbe编辑窗口，插入模块
'然后把下面的代码复制到模块里面，然后保存，再次按alt+f11返回
'excel窗口，按alt+f8，运行suijishu宏就可以在当前表格a1-a500
'产生不重复的1-500个随机数，希望对你有用，代码已亲测通过

,----------------代码如下-------------------
Sub suijishu()
Dim t, i, sjs(500)
For t = 1 To 500
Randomize
sjs(t) = Int(500 * Rnd) + 1
For i = 1 To (t - 1)
If sjs(t) = sjs(i) Then
sjs(t) = Int(500 * Rnd) + 1
i = 0
End If
Next i
Next t
For t = 1 To 500
ActiveSheet.Range("a" & t).Value = sjs(t)
Next t
End Sub

Answer 2

可以用VBA代码来实现，代码及注释如下：
Sub m()'宏名
Cells(1, 1) = Int(Rnd * 500) + 1'先在第一个单元格生成一个随机数，避免用countif函数时出错
For i = 2 To 500'从第二个单元格到第500个循环，依次填数
ee:
x = Int(Rnd * 500) + 1'生成500以内的随机数
If Application.WorksheetFunction.CountIf(Range("A1:A" & i), x) > 0 Then'利用countif函数来判断，随机数是否已经存在了
GoTo ee'如果存在就返回，重新生成随机数
Else
Cells(i, 1) = x'如果不存在，就复制给A列的单元格
End If
Next i
End Sub

Answer 3

在选项里启用迭代算，在A1单元格中输入公式：

=IF(COUNTIF($A$1:$A$500,A1)=1,A1,RANDBETWEEN(1,500))

Answer 4

=INT(RAND()*500)
；=====================
修改，randbetween(1,500)这个符合你的要求，但不知道你的excel是否都装全了。
2000，2003都要加载分析工具库

Answer 5

=INT(RAND()*499+1)