Excel 一問 Randbetween 不重覆
回答 (2)
2013-01-13 4:54 am
✔ 最佳答案
相信你想做六合彩，用Visual Basic當然可以，但編寫要花點時間。用EXCEL也可簡單地做到六合彩，我有一個方法，不過要借用A1至A49做輔助。
1. A1至A49 輸入 =RAND()
2. B1 輸入 =RANK(A1,A$1:$A$49)
3. COPY B1 到 B2至B7
4. 按鍵盤的F9可refresh試算表
B1至B6你可以當作中奬號碼，B7就可以當作特別號碼。
2013-01-15 7:38 pm
供參考:
陣列公式, Ctrl + Shift + Enter三鍵輸入:
不可在第1行輸入, 假設在B2輸入公式:
=SMALL(IF(COUNTIF(B$1:B1,ROW($1:$49))=0,ROW($1:$49)),INT(RAND()*(50-ROW(A1))+1))
下拉, 要多少個數字, 便拉多少格, 如拉到B50, 便是1至49的不重複數字
按F9 或在任何一個空白格按Delete, 所有數字會馬上更新,如要保留結果, 要馬上做複製-選擇性貼上-值, 此公式思路做六合彩選號或Bingo紙最有效
陣列公式, Ctrl + Shift + Enter三鍵輸入:
不可在第1行輸入, 假設在B2輸入公式:
=SMALL(IF(COUNTIF(B$1:B1,ROW($1:$49))=0,ROW($1:$49)),INT(RAND()*(50-ROW(A1))+1))
下拉, 要多少個數字, 便拉多少格, 如拉到B50, 便是1至49的不重複數字
按F9 或在任何一個空白格按Delete, 所有數字會馬上更新,如要保留結果, 要馬上做複製-選擇性貼上-值, 此公式思路做六合彩選號或Bingo紙最有效
收錄日期: 2021-04-13 19:14:41
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20130112000051KK00170