如何把1至10这10个整数随机放到10个单元格中？

lhx120824 · 发表于 2010-6-20 05:12

如何在一列的10个单元格中生成1到10之间的不重复随机整数？
也就是把1至10这10个整数随机放到10个单元格中。

[ 本帖最后由 lhx120824 于 2010-6-20 05:16 编辑 ]

lhx120824 · 发表于 2010-6-20 06:54

我在a列用rand()产生10个随机数作为辅助列，B列用rank()取A列的降序，如下图：
0.623055525 4
0.292447703 7
0.452371083 6
0.161932821 8
0.731795844 3
0.842197897 1
0.029285633 10
0.796651971 2
0.108375077 9
0.618930935 5
问题是随机数重复的可能性有多大？如果没有重复，B列就达到一楼所提出的要求。如果有重复，那还要附加其他的不重复问题。

lhx120824 · 发表于 2010-6-20 06:56

问题转到如何产生不重复的指定数目的随机数。

youliqi · 发表于 2010-6-20 07:32

http://club.excelhome.net/viewthread.php?tid=91111

山桑弓 · 发表于 2010-6-20 08:03

A1空着，A2输入=LARGE(IF(COUNTIF($A$1:A1,ROW($1:$10))=0,ROW($1:$10)),RANDBETWEEN(1,12-ROW()))
数组公式，再向下复制。

lhx120824 · 发表于 2010-6-20 09:07

原帖由 山桑弓 于 2010-6-20 08:03 发表
A1空着，A2输入=LARGE(IF(COUNTIF($A$1:A1,ROW($1:$10))=0,ROW($1:$10)),RANDBETWEEN(1,12-ROW()))
数组公式，再向下复制。

看来这个公式能达到一楼的要求。

香川群子 · 发表于 2010-6-20 11:39

原帖由 lhx120824 于 2010-6-20 06:56 发表
问题转到如何产生不重复的指定数目的随机数。

直接运用函数来做这件事理论上无法保证绝对无重复吧。

用vba或自编公式都可以轻松做到。

下面是我编写的改进排序自定义rk函数：
Function RK(Num, Rng, Eva, Optional t = 0)
'Num=被评估对象，Rng=评估范围，以及t=倒序正序选择，这三个参数的功能，和rank()函数是一样的。
  '我在这里增加了Eva=同名次评估范围。要求从第一个放置了公式的单元格如B2的上一个单元格B1开始取值，
  '并且需要选择如：$B$1:B1这样的方式，那么向下复制以后B3单元格中自动变成$B$1:B2。
  '总之，是每次只计算前一次结果的意思。具体使用方法见附件图片。
K = 1
For i = 1 To Rng.Count
      If t = 0 And Num < Rng.Cells(i) Then
         K = K + 1
      ElseIf t = 1 And Num > Rng.Cells(i) Then
         K = K + 1
      End If
Next i

RK = K
For i = 1 To Eva.Count
      If RK = Eva.Cells(i) Then RK = RK + 1
Next i
End Function

香川群子 · 发表于 2010-6-20 11:45

可对任意矩形范围内单元格内的数据内容直接重新排序，
如果该矩形范围内所有单元格都为空，则填入随机序数，即随机填入1-n的正整数。

Sub RectangleDataRandom()
Dim a
Dim s As New Collection, t As New Collection
Randomize

a = Selection

For i = 0 To UBound(a, 1) - 1
      For j = 0 To UBound(a, 2) - 1
         s.Add a(i + 1, j + 1)
         If B = "" Then B = B & a(i + 1, j + 1)
         t.Add 1 + j Mod UBound(a, 2) + (i Mod UBound(a, 1)) * UBound(a, 2)
      Next
Next

If B = "" Then
      For i = 1 To UBound(a, 1)
         For j = 1 To UBound(a, 2)
            K = Int(Rnd() * t.Count + 1)
            a(i, j) = t(K)
            t.Remove (K)
         Next
      Next

Else
      For i = 1 To UBound(a, 1)
         For j = 1 To UBound(a, 2)
            K = Int(Rnd() * s.Count + 1)
            a(i, j) = s(K)
            s.Remove (K)
         Next
      Next
End If

Selection = a
'[a1].Resize(UBound(a, 1), UBound(a, 2)) = a

End Sub

twoleavs · 发表于 2010-6-20 13:09

原帖由 lhx120824 于 2010-6-20 05:12 发表
如何在一列的10个单元格中生成1到10之间的不重复随机整数？
也就是把1至10这10个整数随机放到10个单元格中。

这个问题应该不难，用函数可以解决。
首先添加一辅助列，如E列，在E1单元格中输入=RAND()，公式下拉至E10。
其次在F1单元格输入公式=MATCH(LARGE(E$1:E$10,ROW(1:1)),E$1:E$10,)，公式下拉至F10。
最后按 F9 键，就可得到1至10随机整数。详见附件：

不重复1到10随机数.rar (1.81 KB, 下载次数: 100)

lhx120824 · 发表于 2010-6-20 19:19

谢谢各位的帮助。

		自动登录	找回密码
密码			免费注册

[讨论] 如何把1至10这10个整数随机放到10个单元格中？

自编rank公式，可以对重复值排序。

vba解决随机重排的完整代码：

浏览过的版块