第1个回答 2009-02-16
用VBA实现
点击 工具--宏--(名字随便起,以Rnds为例)--创建宏
进去之后在“Sub Rnds()”和“End Sub”之间输入以下代码
Randomize
Dim i As Integer
For i = 1 To 1000 '在每列生成1000个随机数
Cells(i, 1) = Application.NormInv(Rnd(), 10, 1)
Cells(i, 2) = Application.NormInv(Rnd(), 35, 3)
Cells(i, 3) = Application.NormInv(Rnd(), 97, 6)
Cells(i, 4) = Application.NormInv(Rnd(), 21, 2)
Cells(i, 5) = Application.NormInv(Rnd(), 78, 5)
Next i
然后点击运行,Ok本回答被提问者采纳