作业帮 > 综合 > 作业

Excel中VBA取固定数值随机数

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 01:04:43
Excel中VBA取固定数值随机数
在A1:A9和D1:D9和单元格A10、D10中产生随机数(随机数指定为:E16:E35中共20个数值,允许重复取随机数.要求是使用VBA完成,
在A1:A9和D1:D9和单元格A11、D11中产生随机数(随机数指定为:E16:E35中共20个数值,允许重复取随机数.要求是使用VBA完成,附件不懂如何上传
Sub Rndnum()
dim n as integer
dim t as range
set t = union(range("A1:A9") ,Range("D1:D9"),Range("A11"),Range("D11"))
for each cell in t
    n = int(rnd()*20+16)
    cell.value=range("E" & n).Value
next
end sub 这个应该是符合你的条件,看了你和楼上的互动,我推测你实际区域并不是像你提供的这样是连续区域,而应该是很多个不连续区域吧.用UNION就可以了,可以随便改区域.