返回列表 上一主題 發帖

[分享] 用EXCEL產生不重複的亂數

infoverdad

帖子
175 
主題
8 
精華
0 
積分
207 
點名
264  
作業系統
WIN 10 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2024-11-11 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-1-31 19:02 | 只看該作者

[分享] 用EXCEL產生不重複的亂數

用EXCEL產生1-10的亂數且不重複:
1.  B2輸入陣列公式(須Ctrl + Shift + Enter 輸入)
=SMALL(IF(COUNTIF(B$1:B1,ROW($1:$10))=0,ROW($1:$10)),INT(RAND()*(11-ROW(A1)))+1)
2.  下拉至B11


用EXCEL產生1-10的亂數且不重複.zip (4.13 KB)
收藏 分享

webo

帖子
1 
主題
0 
精華
0 
積分
1 
點名
0  
作業系統
Win 7 
軟體版本
Hime 
閱讀權限
10 
註冊時間
2012-3-28 
最後登錄
2012-3-28 
2#
發表於 2012-3-28 21:42 | 只看該作者
正在思索怎樣的方式！感謝您的分享讓我得到解答！

TOP

ilovekwanyee

帖子
1 
主題
0 
精華
0 
積分
1 
點名
0  
作業系統
windows7 
軟體版本
unknow 
閱讀權限
10 
註冊時間
2013-1-21 
最後登錄
2013-1-21 
3#
發表於 2013-1-21 21:20 | 只看該作者
THANKS
=] can't download

TOP

loquat

帖子
48 
主題
1 
精華
0 
積分
53 
點名
0  
作業系統
XP 
軟體版本
2010 & 2003 
閱讀權限
20 
性別
男 
來自
China 
註冊時間
2013-1-12 
最後登錄
2013-11-23 
4#
發表於 2013-2-20 11:15 | 只看該作者
我这里似乎还是有重复的
无论是在B2写入数组公式下拉，还是选中B2:B11写入数组公式
向高手学习

TOP

loquat

帖子
48 
主題
1 
精華
0 
積分
53 
點名
0  
作業系統
XP 
軟體版本
2010 & 2003 
閱讀權限
20 
性別
男 
來自
China 
註冊時間
2013-1-12 
最後登錄
2013-11-23 
5#
發表於 2013-2-20 11:24 | 只看該作者
纠正，能实现的，之前是因为没有写入到正确的位置
写入A2的公式应该是这个
  1. =SMALL(IF(COUNTIF(A$1:A1,ROW($1:$10))=0,ROW($1:$10)),INT(RAND()*(11-ROW()))+1)
複製代碼
向高手学习

TOP

rph

帖子
41 
主題
7 
精華
0 
積分
79 
點名
33  
作業系統
WIN XP 
軟體版本
SP2 
閱讀權限
20 
性別
男 
註冊時間
2011-3-25 
最後登錄
2024-11-8 
6#
發表於 2016-7-6 13:41 | 只看該作者
可否請版主或發帖的版主說明此公式SMALL(IF(COUNTIF(B$1:B1,ROW($110))=0,ROW($110)),INT(RAND()*(11-ROW(A1)))+1)
P.S我有分開RUN過,可是還是不老解,可否解惑,感謝

TOP

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-7 

熱烈參與勳章
7#
發表於 2016-7-6 19:12 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/430071422

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題