[已解决]请问我想让a1-a31随机生成数据范围在0-30之间,b1-b31随机生成数据范围在45-75这间....

rn0jkzpq

请问我想让a1-a31随机生成数据范围在0-30之间,b1-b31随机生成数据范围在45-75这间请问这个怎么用vba做,谢谢

最佳答案

月排行榜 / 总排行榜

youfang

2013-6-27 18:27

Sub 随机数()                              
Dim i%                                             '定义变量 i
For i = 1 To 31                                 '设定变量范围为i=1到31
    Cells(i, 1) = Int(Rnd * 30)              'A列产生随机数0-30
    Cells(i, 2) = Int(Rnd * 30) + 45     'B列先产生随机数0-30，+45后产生45-75的随机数
Next                                                '下一个
End Sub                                          '结束

跳转到最佳答案楼层

hoogle

如果不可以重复的话  用随机抽取方法--两两换位法

youfang

Sub 随机数()                              
Dim i%                                             '定义变量 i
For i = 1 To 31                                 '设定变量范围为i=1到31
    Cells(i, 1) = Int(Rnd * 30)              'A列产生随机数0-30
    Cells(i, 2) = Int(Rnd * 30) + 45     'B列先产生随机数0-30，+45后产生45-75的随机数
Next                                                '下一个
End Sub                                          '结束

lyf7276

Sub kl()
Range("a1") = "=RANDBETWEEN(1,31)"
Range("a1:a31").FillDown
Range("b1") = "=RANDBETWEEN(45,75)"
Range("b1:b31").FillDown
End Sub

as0810114

直接在A1:A31输入公式=randbetween(0,30)
B1:B31输入公式=randbetween(45,75)
即可，没必要用VBA