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

平常心即道

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

　　万分感谢！！！

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

sunredday

<TABLE 162pt; BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width=216 border=0 x:str><COLGROUP><COL style="WIDTH: 54pt" span=3 width=72>1810111677149101551112171581916<TR 14.25pt" height=19>19<TD #d4d0c8; BORDER-TOP: #d4d0c8; BORDER-LEFT: #d4d0c8; BORDER-BOTTOM: #d4d0c8; BACKGROUND-COLOR: transparent" align=right x:num x:fmla="=ROU

sunredday

选定三列，对第二列和第三列进行排序

淼漫

生成随机数函数rand()：若要生成 a 与 b 之间的随机实数，请使用：RAND()*(b-a)+a

平常心即道

首先谢谢蜘蛛侠和淼漫管理员的迅速回帖帮助，我试了一下，可能是我还没说清楚，我要的是这20个数字重排后，还是1-20个数字，不能出现重复的数字，我以5个数字为例说明：1　王××　　5

2　李××　　2

3　张××　　4

4　赵××　　1

5　孙××　　3

………



第一、二例是原数据，第三例是抽签后的号，是不能出现重号的。其实就在第一例重排也行，就是把第一例号码打乱重排，原来的1号成了5号，2号也有可能仍旧是2号，3号成了4号，4号成了1号，5号成了3号……不能同时出现2个相同的号码的，呵呵～～～罗嗦了吧，大概是这意思，希望麻烦你们再帮忙指教，再次感谢了！！！

红池坝

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

平常心即道

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

红池坝

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

平常心即道

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



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

红池坝

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