Re: [算表] 請教如何跑出 五碼亂數一萬筆, 0與1不出現

[verdant (死薪水上班族)]

OB※ 引述《MountainTown (12384fu  51)》之銘言：
: 軟體: excel
: 版本: 2003
: 請問五位數的亂碼  只能使用 2.3.4.5.6.7.8.9組成   1.0不能使用,
: 要有1萬筆亂碼數字
: 請問這個該怎麼寫公式不用巨集?
: 謝謝

沒有RANDBETWEEN也可以用比較笨的方法

不要1和0，所以只需要8個數字

先在A、B行填入以下數字

   A       B

   0       2
   0.125   3
   0.25    4
   0.375   5
   0.5     6
   0.625   7
   0.75    8
   0.875   9

接著在A、B行以外的任意格填入

=VLOOKUP(RAND(),$A:$B,2,TRUE)&VLOOKUP(RAND(),$A:$B,2,TRUE)&
 VLOOKUP(RAND(),$A:$B,2,TRUE)&VLOOKUP(RAND(),$A:$B,2,TRUE)&
 VLOOKUP(RAND(),$A:$B,2,TRUE)

(接成1行公式，總之要幾位數就貼幾個 &VLOOKUP(RAND(),$A:$B,2,TRUE) )

就可以得到一組任意沒有1和0的亂數了

隨便複製個2萬組，再想辦法刪掉重複的數字就行了



要刪掉重複的數字也有一個比較笨的方法

把剛剛得到的2萬組亂數貼到另一個活頁的B欄

要用選擇性貼上，貼上值

這樣才不會公式太多跑到當機

然後在A2格內貼上這個公式 =IF(ISERROR(MATCH(B2,$B$1:B1,0)),1,"")

再往下複製

如果是沒有重複的亂數，前面就會顯現1

重複的亂數前面就會是空白的

再用篩選把空白的篩選掉就可以了


--
          內有鄉民                                
http://verdant.pixnet.net/album
          這裡才買的到                            
http://goods.ruten.com.tw/item/show?11091226076713
http://goods.ruten.com.tw/item/show?11080921816210
http://goods.ruten.com.tw/item/show?20912283419326

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.120.11.13
※ 編輯: verdant         來自: 59.120.11.13         (02/21 17:54)
※ 編輯: verdant         來自: 59.120.11.13         (02/21 18:08)
→ razer:unique()?
推 MountainTown:感謝!謝謝~~~
→ soyoso: 如只需要8個數字的話，也可亂數randbetween 0~77777，8進
→ soyoso: 位，而8進位的77777在10進位的值為32767，而0,1不要出現則
→ soyoso: 加上22222 =dec2oct(randbetween(0,32767))+22222
→ soyoso: 2003版本，函數randbetween的使用上需工具→增益集→分析
→ soyoso: 工具箱(勾選)
→ soyoso: 如不要重複的話 https://i.imgur.com/k7voAAv.jpg
→ soyoso: a1:c1的公式填入a1:c32768，e1的公式則拉至要取的筆數
→ soyoso: 要重新取的話則按f9重新運算