求随机数的生成

wjs521 · 发表于 2020-4-25 00:19

本帖最后由 wjs521 于 2020-4-25 13:03 编辑

我想在A1：H100这个范围内生成如下的随机数

Chip_Kenny · 发表于 2020-4-25 09:40

Sub zz()
Dim a(1 To 100, 1 To 8)
For i = 1 To 100
For j = 1 To 8
a(i, j) = Application.WorksheetFunction.RandBetween(100000, 999999)
Next
Next
[a1:h100] = a
End Sub

yjh_27 · 发表于 2020-4-25 10:30

n取m 自定义函数随机组合排列分组分配
http://club.excelhome.net/thread-1526867-1-1.html
(出处: ExcelHome技术论坛)

=ArrRnd20(999999,100,8)

wjs521 · 发表于 2020-4-25 12:28

yjh_27 发表于 2020-4-25 10:30
n取m 自定义函数随机组合排列分组分配
http://club.excelhome.net/thread-1526867-1-1.html
(出处: ...

老师这个最后面的数字8代表什么意思呢

yjh_27 · 发表于 2020-4-25 12:32

wjs521 发表于 2020-4-25 12:28
老师这个最后面的数字8代表什么意思呢

h列 = 8列

wjs521 · 发表于 2020-4-25 12:47

yjh_27 发表于 2020-4-25 12:32
h列 = 8列

谢谢老师解答还有一个问题比如我要求是随机的是6位数但是有的是0开头的而随机后呢有的6位数变成了4位数或者3位数原因是前面的0数字被自动舍掉了这个该怎么解决好呢

yjh_27 · 发表于 2020-4-25 12:56

wjs521 发表于 2020-4-25 12:47
谢谢老师解答还有一个问题比如我要求是随机的是6位数但是有的是0开头的而随机后呢有的6位数 ...

设置单元格格式

wjs521 · 发表于 2020-4-25 13:01

yjh_27 发表于 2020-4-25 12:56
设置单元格格式

非常感谢老师完美解决

wjs521 · 发表于 2020-4-25 13:02

Chip_Kenny 发表于 2020-4-25 09:40
Sub zz()
Dim a(1 To 100, 1 To 8)
For i = 1 To 100

非常感谢您的帮助谢谢！

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

[已解决] 求随机数的生成