當前位置:成語大全網 - 新華字典 - vba怎樣隨機選取不重復項?

vba怎樣隨機選取不重復項?

對原課題分析,新項目意味著原值=0,新值=1,0+1=1,所以不考慮什麽相加,記錄結果等等,只需要先復制,再考慮遇到符合條件時隨機改寫為1即可。

所以這個小程序可以這樣寫:

1,令aa3:az3等於aa2:az2

2,計算幾個符合條件的項目(去重不需要for循環和什麽字典,內置countifs就搞定了)

對[A1:A100]求和,我也喜歡用sum([A1:A100]),而不是定義數組再用for循環。

3,逐個對比,當遇到新增持有,若可改寫項目已不足3次,或已改寫次數尚未超過3次且隨機參數為“改”,則改寫該項目為1,並記錄項目名。

4,依次計算完畢即可。