Question

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

请问必须用到Randomize吗，用到与用不到结果有何区别
谢谢

Answer 1

Randomize必须要用，它是用来初始化随机种子的（基本上所有语言中都有类似语句），不用这个你每运行这个程序，得到的随机数结果就是会一样的，比如第一次10，第二次8等等。

Answer 2

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