0、前提條件:有一個數字列表,或者數字段范圍(1~100);
十余年的黃龍網站建設經驗,針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。成都全網營銷推廣的優(yōu)勢是能夠根據用戶設備顯示端的尺寸不同,自動調整黃龍建站的顯示方式,使網站能夠適用不同顯示終端,在瀏覽器中調整網站的寬度,無論在任何一種瀏覽器上瀏覽網站,都能展現優(yōu)雅布局與設計,從而大程度地提升瀏覽體驗。成都創(chuàng)新互聯從事“黃龍網站設計”,“黃龍網站推廣”以來,每個客戶項目都認真落實執(zhí)行。
1、Randomize '初始化隨即函數;
2、用列表或者數組存放待選數據,比如長度為60;
3、利用隨機函數抽取數字對應的數據 num=Rnd*60,Ret_Value=List(num),將選取結果存入結果單元;
4、然后從列表或者數組中去掉這個數據,(避免重復選中);
5、然后再運行3;
6、直到滿意為止。
如果同一列(或者同一行)的話,可以用countif函數作為輔助列(輔助行),當然也可以用條件格式。
否則的話,可以用條件格式或vba。
我還在床上,就只給你思路吧
我是自己寫了個函數,將數組傳入并返回一個新數組列表
子函數中,先將數組排序sort函數,然后有兩個循環(huán),外循環(huán)從0到Length,變量i,內循環(huán)從i到Length,判斷第i個數是否與包括自身的后續(xù)數相同,相同就有變量加1,內循環(huán)結束條件是找到第一個不同的數,并將外循環(huán)i復植為內循環(huán)中第一個不同的數的下表。。。
這個是思路,如果不能理解再再追加我給你代碼,不過建議自己試試
你看寫這個,和你的要求差不多。。。;oldq=1
有程序的~~~你可以參考下~~~
比如數組a。里面有5個值,其中有3個是重復的?
如果這樣的話,很好辦哦。
新建一個數組b,然后遍歷要去除的數組a,
從a中把每一個都取出來,和新建的b里面的去比,如果有相同的,則不放入b,
否則就放入數組b,直到循環(huán)結束。