標題: Re: [算表] EXCEL 隨機 不重複
時間: Wed Oct 8 21:03:12 2008
※ 引述《lynnlnn (乘輕航機等你)》之銘言:
: 軟體:EXCEL 2003
: 版本:
: 1-60格不重複 每個數字只能出現1次 每個數字都要出現過
: 隨機分派到表格 取整數代表順序
: 用=INT(RAND()*(59)+1)
: 發現會重複出現 且每點一次亂數又會換
: 請問如何解決重複出現的問題 如何鎖定亂數表
洗牌法
Sub test()
Dim x(1 To 60) As Integer
For i = 1 To 60
x(i) = i
Next
For j = 1 To 1000
a1 = Int(Rnd() * 60) + 1
a2 = Int(Rnd() * 60) + 1
temp = x(a1)
x(a1) = x(a2)
x(a2) = temp
Next
For l = 1 To 60
Cells(l, 1) = x(l)
Next
End Sub
排序法
A1=rand(), b1=rank(a1,$a$1:a$60)
拖拉放, b1:b60就是1-60隨機分派
--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚
http://chungyuandye.blogspot.com
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.184
[1;37m推 [33mJieJuen[m[33m:詳解~! 推! [m 10/09 01:42
超實用,感謝您的分享
回覆刪除排序法超好用!!
回覆刪除