【已完美解决】根据多种条件，生成随机不重复数

香川群子

小花鹿 发表于 2013-4-14 14:16
这个问题有点特别，练习一下：
Sub test()
Dim ar(), br(), min, max, n, i&, s, t1

我的随机取值，取数范围可以任意大……

例如，下面的例子：
数值下限a= -10000000000
数值上限b= 10000000000
小数点位数d=5 位小数

…………

张雄友

香川群子 发表于 2013-4-14 13:03
补充：如果设定【取值个数】超过数据区间【不重复个数】时：
1. 如果设定了最小间隔=0，那么将会抽取到重复 ...

会出错的。

muyang45

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

走不开的快乐

香川群子 发表于 2013-4-14 12:54
功能比楼主要求更复杂的随机取数代码：

功能介绍：

大师，您好，我想实现在B列中随机替换其中的10%，把1换为2，然后将对应的C中的0.001050换为9.如若B4被换为2，则C4被换为9；

走不开的快乐

香川群子 发表于 2013-4-14 12:54
功能比楼主要求更复杂的随机取数代码：

功能介绍：

大师，您好，我想实现在B列中随机替换其中的10%，把1换为2，然后将对应的C中的0.001050换为9.如若B4被换为2，则C4被换为9；

走不开的快乐

香川群子 发表于 2013-4-14 12:54
功能比楼主要求更复杂的随机取数代码：

功能介绍：

大师，您好，我想实现在B列中随机替换其中的10%，把1换为2，然后将对应的C中的0.001050换为9.如若B4被换为2，则C4被换为9；

LIWENHUI2002970

你好，打开怎么什么也没有！

Railway15

香川群子 发表于 2013-4-14 12:54
功能比楼主要求更复杂的随机取数代码：

功能介绍：

虽然看不太懂，还是说大佬牛逼

yysfcq1

阀发艾师傅艾师傅阀