[再求助]如何用Excel进行抽签

平常心即道

　　请教各位高手一个如何抽签的问题，例如有20个人的姓名，编号从1到20，如何让其自动重新排序，号码变成随机而定（就是原来的10号现在可能变成5号，15号变成了19号，余类推，总数还是20。）大概就是这个意思，希望会的朋友不吝赐教！！！

　　万分感谢！！！

[此贴子已经被作者于2005-6-14 21:04:13编辑过]

cola

将以下代码复制到模块中,可以当函数使用.

Option Explicit
Function RANGERANDOMIZE(rng)
    Dim V() As Variant, ValArray() As Variant
    Dim CellCount As Double
    Dim i As Integer, j As Integer
    Dim r As Integer, c As Integer
    Dim Temp1 As Variant, Temp2 As Variant
    Dim RCount As Integer, CCount As Integer
    Randomize
   
'   Return an error if rng is too large
    CellCount = rng.Count
    If CellCount > 1000 Then
        RANGERANDOMIZE = CVErr(xlErrNA)
        Exit Function
    End If
   
'   Assign variables
    RCount = rng.Rows.Count
    CCount = rng.Columns.Count
    ReDim V(1 To RCount, 1 To CCount)
    ReDim ValArray(1 To 2, 1 To CellCount)


    For i = 1 To CellCount
        ValArray(1, i) = Rnd
        ValArray(2, i) = rng(i)
    Next i

    For i = 1 To CellCount
        For j = i + 1 To CellCount
            If ValArray(1, i) > ValArray(1, j) Then
                Temp1 = ValArray(1, j)
                Temp2 = ValArray(2, j)
                ValArray(1, j) = ValArray(1, i)
                ValArray(2, j) = ValArray(2, i)
                ValArray(1, i) = Temp1
                ValArray(2, i) = Temp2
            End If
        Next j
    Next i
   
    i = 0
    For r = 1 To RCount
        For c = 1 To CCount
            i = i + 1
            V(r, c) = ValArray(2, i)
        Next c
    Next r
    RANGERANDOMIZE = V
End Function

czq1688

研究ing

sunredday

sunredday

实际例子

红池坝

你用了两个公式，可8楼只有一个公式，哪个效率高一目了然啊。何况，rank()函数也会有重复的啊，比如并列第5，呵呵

平常心即道

这样可以，但不是很理想，我试了一下，这样是否好些？辅助列, D1输入公式, 下拖至D20 :=RAND()



C1输入公式, 下拖至C20 :=RANK(D1,$D$1D$20)

红池坝

为什么非得产生1－20的不重复的随机数呢？虽然使用VBA代码很容易。使用一个变通的办法其实真的很简单。6楼的办法是一个。下面是另一个，只是不使用Row()而已添加一个C列，填充1－20添加一个D列，＝rand()对D列排序，这样无论D列里是否有重复，但在C列中，事实上就成了1－20不重复的随机数了，明白吗？

平常心即道

试了一下，还是不行，有没有这样的函数：在一列20个单元格内，随机产生1至20不重复的20个数字。？

红池坝

有一个很简单的办法：第一列（A列）的序号使用row()函数自动生产，添加一个辅助列C列使用rand()函数产生随机数并在此排序，这样，B列的姓名会因为C列变化而变化，但A列却因为row()函数而不会发生变化，毅然是123456……的顺序。为了表格美观，可以隐藏c列。