EXCEL生成(0—9)6位不重复的随机数?

发布网友发布时间：2022-05-01 02:20

共2个回答

热心网友时间：2022-06-22 10:30

使用VBA做吧，简单快捷：
--------------
Sub Macro1()
Dim d, i, m, n, tmp
Set d = CreateObject("Scripting.Dictionary")
For i = 0 To 9
d(i) = ""
Next
tmp = d.Keys
For i = 0 To 5
Randomize
m = Int(Rnd * (10 - i))
n = n & tmp(m)
d.Remove tmp(m)
tmp = d.Keys
Next
' MsgBox n
Range("A1") = n
End Sub

热心网友时间：2022-06-22 10:30

麻烦一点
首先 A1输入公式 =RAND() 向下填充到 10
B1输入公式 =RANK(A1,A$1:$a$10)-1
向下填充到B6即可

那就将B1公式修改为
=LEFT(SUMPRODUCT((RANK($A$1:$A$7,$A$1:$A$10)-1)*10^(7-ROW($1:$7))),6)

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com