Re: [算表] EXCEL 隨機 不重複

[chungyuandye (養花種魚數月亮賞星星)]

※ 引述《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
推 JieJuen:詳解~! 推!