[已解决]求助vba

haeng

用1234567890当百位,十位,个位,再组合成一千组数显示在c列

最佳答案

月排行榜 / 总排行榜

cbg2008

2012-9-7 17:29

1. Sub test()
   
2.     Dim arr(1 To 1000)
   
3.     Dim i%
   
4.     For i = 1 To 1000
   
5.         arr(i) = Format(Int(Rnd() * 1000), "000")
   
6.     Next
   
7.     Range("c1").Resize(1000).NumberFormatLocal = "@"
   
8.     Range("c1").Resize(1000) = Application.Transpose(arr)
   
9. End Sub

复制代码

跳转到最佳答案楼层

cbg2008

1. Sub test()
   
2.     Dim arr(1 To 1000)
   
3.     Dim i%
   
4.     For i = 1 To 1000
   
5.         arr(i) = Format(Int(Rnd() * 1000), "000")
   
6.     Next
   
7.     Range("c1").Resize(1000).NumberFormatLocal = "@"
   
8.     Range("c1").Resize(1000) = Application.Transpose(arr)
   
9. End Sub

复制代码

haeng

cbg2008 发表于 2012-9-7 17:29

你这个是错的,里面有重数,改一下吧,

cbg2008

是不是把0-999这1000个数乱序排序，因为000-999一共才1000个数呀，要是没有重数的话就相当于一个都不能少了

haeng

cbg2008 发表于 2012-9-7 17:48
是不是把0-999这1000个数乱序排序，因为000-999一共才1000个数呀，要是没有重数的话就相当于一个都不能少了

我只要000到999这一千组数放在c列就行

cbg2008

haeng 发表于 2012-9-7 17:52
我只要000到999这一千组数放在c列就行

1. Sub test()
   
2.     Dim arr(1 To 1000), brr(999)
   
3.     Dim i%, j%, k%
   
4.     For i = 0 To 999
   
5.         brr(i) = i
   
6.     Next
   
7.     Randomize
   
8.     For i = 1 To 1000
   
9.         j = Int(Rnd() * (1001 - i))
   
10.         arr(i) = Format(brr(j), "000")
    
11.         k = brr(j)
    
12.         brr(j) = brr(1000 - i)
    
13.         brr(1000 - i) = k
    
14.     Next
    
15.     Range("c1").Resize(1000).NumberFormatLocal = "@"
    
16.     Range("c1").Resize(1000) = Application.Transpose(arr)
    
17. End Sub

复制代码

cbg2008

按顺序的

1. Sub test()
   
2.     Dim arr(999)
   
3.     Dim i%
   
4.     For i = 0 To 999
   
5.         arr(i) = Format(i, "000")
   
6.     Next
   
7.     Range("c1").Resize(1000).NumberFormatLocal = "@"
   
8.     Range("c1").Resize(1000) = Application.Transpose(arr)
   
9. End Sub

复制代码