Excel中,我想让a1到a6中随机产生1到6.而且这6个单元格不能重复,请教前...

发布网友发布时间：2024-10-21 21:26

我来回答

共2个回答

热心网友时间：2024-11-30 08:53

用辅助列可以实现

A1公式

=RANK(B1,$B$1:$B$6,1)

下拉到A6

B1公式

=RAND()

下拉到B6

按F9刷新

热心网友时间：2024-11-30 08:55

用VBA来写：
Sub SJS()
Dim SJ() As Variant
SJ = Array(1, 2, 3, 4, 5, 6)
For i = 0 To 5
weizhi = Int(Rnd() * 6)
tmp = SJ(weizhi)
SJ(weizhi) = SJ(i)
SJ(i) = tmp
Next
For i = 0 To 5
Range("A" & i + 1) = SJ(i)
Next
End Sub

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