[已解决]求生成100万行随机数。0到9的。

zhanggjhefj

求用vba或者公式生成100万行0-9的随机数。就是A1到A1000000行。

最佳答案

月排行榜 / 总排行榜

qh8600

2014-7-16 10:29

1. Sub dome()
   
2.     Dim arr(1 To 1000000, 1 To 1), i As Long
   
3.     Randomize
   
4.     For i = 1 To 1000000
   
5.         arr(i, 1) = Int(Rnd() * 10)
   
6.     Next
   
7.     [a1].Resize(1000000, 1) = arr
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

易安1

选中a1:a1000000输入=randbetween(1,9) 按下ctrl+enter  完成

baksy

公式重复，删除。

qh8600

1. Sub dome()
   
2.     Dim arr(1 To 1000000, 1 To 1), i As Long
   
3.     Randomize
   
4.     For i = 1 To 1000000
   
5.         arr(i, 1) = Int(Rnd() * 10)
   
6.     Next
   
7.     [a1].Resize(1000000, 1) = arr
   
8. End Sub
   

复制代码

hwc2ycy

100万行用公式，只怕EXCEL要卡机呀。

易安1

hwc2ycy 发表于 2014-7-16 10:44
100万行用公式，只怕EXCEL要卡机呀。

{:04:} 肯定有压力的 如果用公式

su45

100万行，还是用VBA好，4楼的代码就OK了！

zhanggjhefj

谢谢高手，其实100万行，用不了1秒的。没那么夸张

香川群子

100万个0-9有什么用……