在EXCEL VBA中 1给一个生成100个随机整数的代码（1到1000的） 2给一个生成100个不等的随机整数

在EXCEL VBA中 1给一个生成100个随机整数的代码（1到1000的） 2给一个生成100个不等的随机整数
请问必须用到Randomize吗,用到与用不到结果有何区别

Sub aa()
Dim arr
Dim x&
ReDim arr(1 To 100)
For x = 1 To 100
arr(x) = Int(Rnd * 99 + 1)
Next
Range("A1").Resize(UBound(arr)) = Application.Transpose(arr)
End Sub
生成1到100的随机整数.有重复.
再问： Range("A1").Resize(UBound(arr)) = Application.Transpose(arr) 这个代码是何意，上述代码中怎么未显示出用到Randomize
再答： 那句代码的意思是从A1开始写入，行数与数组行数一样，因为这是一维数组，要转置写入数组值 因你是生成1到100的随机整数，这里是指定生成100个随机1到100的整数。你可以把这代码改成 Range("A1").Resize(100) = Application.Transpose(arr) 因代码中我们可以改为生成200个或者其他任意个，就要修改那些所有的100，而用了ubound(arr)这句，就不用修改，只需要修改上面的两个100即可,如果再设置一个变量，那就只需要修改一个就行了如：要几个数，就修改一下以下代码中的i=100,把100改成你要的个数即可 Sub aa() Dim arr Dim x&,i& i=100 ReDim arr(1 To i) For x = 1 To i arr(x) = Int(Rnd * (i-1) + 1) Next Range("A1").Resize(i) = Application.Transpose(arr) End Sub 另：Randomize是让随机数初始化指定基数的，不是一定要用的，看情况用，具体用法请参考帮助
再问： EXCEL VBA中Resize是何意
再答： 是指定区域的大小 resize(行数，列数）
再问： 要用到Randomize，放在哪，请写一下代码，因为有可能用到多次生成100个随机数
再答： 多次生成是什么意思？如下生成4组，分别写入四列 Sub aa() Dim arr() Dim x&, i&, k& i = 100 ReDim arr(1 To i) For y = 1 To 4 '如生成4组 k = k + 1 Randomize For x = 1 To i arr(x) = Int(Rnd * (i - 1) + 1) Next x Cells(1, k).Resize(i) = Application.Transpose(arr) Next y End Sub
再问： 生成多次指的是，生成一次100个随机数后，处理完一件事后，又要生成一次100个随机数，来处理另外一件事，等等，这在程序中是常见的 是不是这样就要用到Randomize，使得每次产生的一组100个随机数，与上一组不同
再答： 不用也不会都相同呀。 Sub aa() Dim arr() Dim x&, i& i = 100 ReDim arr(1 To i) For x = 1 To i Randomize arr(x) = Int(Rnd * (i - 1) + 1) Next x Cells(1, 1).Resize(i) = Application.Transpose(arr) End Sub