vba如何随机选择不重复项?
根据对原项目的分析,新项目意味着原值=0,新值=1,0+1=1,所以我们不考虑添加,记录结果等。,我们只需要先复制它,然后在符合要求的时候再考虑随机重写为1。
所以这个小程序可以这样写:
1,这样aa3:az3等于aa2:az2。
2.计算几个符合条件的项(去重不需要for循环和dictionary,但是内置countifs会做)。
对[A1:A100]求和,我也喜欢用sum([A1:A100]),而不是定义一个数组然后用for循环。
3.一个一个对比。当遇到新的持有量时,如果可重写项目少于3次,或者可重写次数未超过3次,并且随机参数为“Change”,则该项被重写为1,并且记录项名称。
4.依次计算它们。