[已解决]如何批量自动生成随机数表，已有一个随机数生成表求教大神改怎么改动成我要的那种

ellick1988 · 发表于 2016-4-8 14:42

本帖最后由 ellick1988 于 2016-4-8 14:44 编辑

如题
如何批量自动生成随机数表，已有一个随机数生成表求教大神改怎么改动成我要的那种，数据要求已在附件里
感谢lichuanboy44大神帮我做的随机数生成表格，我想在他的随机数生成表格上进一步修改下麻烦大神帮帮忙

随机生成.rar (12.79 KB, 下载次数: 8)

grf1973 · 发表于 2016-4-8 15:15

Sub 随机()
[b2:e9] = ""
For h = 2 To 9 '2--9行
gs = Int(4 * Rnd) '每行的随机个数0--3
If gs > 0 Then
up = 5 * h - 5: low = 5 * h - 9 '随机数大小范围
For j = 1 To gs
wz = Int((Rnd * 4) + 1) '随机数出现的位置（列数1--4）
If Cells(h, wz + 1) <> "" Then j = j - 1 Else Cells(h, wz + 1) = Int(Rnd * (up - low + 1) + low) '如果该位置已有数据，重新生成
Next
End If
Next
End Sub

复制代码

ellick1988 · 发表于 2016-4-8 15:47

grf1973 发表于 2016-4-8 15:15

大神！你的回答加解析太有用了！！谢谢你！
是了大神这套宏还能不能编制成输入指定数值然后就在原表格往下生成指定数值组数据？？

grf1973 · 发表于 2016-4-8 16:20

当然可以。代码中用行h控制。代码中h=2 to 9，完全可以改成2 to 100的。。。。

ellick1988 · 发表于 2016-4-8 16:43

grf1973 发表于 2016-4-8 16:20
当然可以。代码中用行h控制。代码中h=2 to 9，完全可以改成2 to 100的。。。。

大神我按你说的改成了 2 to 100 然后程序变得只能运行一次生成数据后，点第二次excel就死机了。。。
并且对于数据大小的范围它是一直累加上去了。。。而不是按第一个表的范围要求填写。。。。。求解
还有大神能教我单独定义每行出现数值的大小吗很多时候填表里面的要求每行都很不一样没有规律可循的

grf1973 · 发表于 2016-4-8 16:55

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

用数组uparr，lowarr来控制每行随机数的上下限，数组写多长，就可以弄多少行。
另外刚才的代码测试了一下2 to 100，没有任何问题。

Sub 随机()
[b2:e100] = ""
uparr = Array(5, 10, 15, 20, 25, 30, 35, 40)
lowarr = Array(1, 6, 11, 16, 21, 26, 31, 36)
For h = 0 To UBound(uparr) '2--9行
gs = Int(4 * Rnd) '每行的随机个数0--3
If gs > 0 Then
up = uparr(h): low = lowarr(h) '随机数大小范围
For j = 1 To gs
wz = Int((Rnd * 4) + 1) '随机数出现的位置（列数1--4）
If Cells(h + 2, wz + 1) <> "" Then j = j - 1 Else Cells(h + 2, wz + 1) = Int(Rnd * (up - low + 1) + low) '如果该位置已有数据，重新生成
Next
End If
Next
End Sub

复制代码

grf1973 · 发表于 2016-4-8 17:08

死机可能是因为原来你的第10行是合并单元格，删掉后就没事了。

ellick1988 · 发表于 2016-4-8 17:38

grf1973 发表于 2016-4-8 16:55
用数组uparr，lowarr来控制每行随机数的上下限，数组写多长，就可以弄多少行。
另外刚才的代码测试了一下2 ...

非常感谢大神的耐心回答！！这套程序对于我这种小白已经很简洁易懂及可定义很高，如果数据量小已经可以很好满足我的需求了，但是大神如果我有好几百组数据要出，如果按照这套程序那就得填写uparr lowarr 里面的几百组定义值。。。。
求教大神可不可以简洁点让后面生成的数值大小套用最开始那套定义域？PS：有个小问题想问下我刚测试时发现填写的数据只能是整数？不能是小数吗？

grf1973 · 发表于 2016-4-8 20:07

你上个较大数据量的附件吧

ellick1988 · 发表于 2016-4-8 23:07

grf1973 发表于 2016-4-8 20:07
你上个较大数据量的附件吧

随机生成目标表格.rar (19.78 KB, 下载次数: 5)

		自动登录	找回密码
密码			注册

[已解决]如何批量自动生成随机数表，已有一个随机数生成表 求教大神改怎么改动成我要的那种

相关帖子

[已解决]如何批量自动生成随机数表，已有一个随机数生成表求教大神改怎么改动成我要的那种