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

lhx120824

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

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

lhx120824

我在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

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

youliqi

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

山桑弓

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

lhx120824

原帖由 山桑弓 于 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 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

香川群子

可对任意矩形范围内单元格内的数据内容直接重新排序，
如果该矩形范围内所有单元格都为空，则填入随机序数，即随机填入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

原帖由 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)

2010-6-20 13:09 上传

点击文件名下载附件

lhx120824

谢谢各位的帮助。