- 424 名前：デフォルトの名無しさん mailto:sage [2008/04/29(火) 09:58:17 ]
- >>423
自前で作れば数倍早いが、こんだけ楽さしてもらってこのスピードなら十分使えるだろ
'Common Language Runtime Library を参照設定
Const NUM_MAX As Long = 65536
Dim DataList As mscorlib.ArrayList
Dim i As Long
Set DataList = New mscorlib.ArrayList
For i = 1 To NUM_MAX
DataList.Add Int(Rnd() * NUM_MAX)
Next i
Range("A1").Resize(NUM_MAX).Value = _
Application.Transpose(DataList.ToArray)
DataList.Sort
Range("B1").Resize(NUM_MAX).Value = _
Application.Transpose(DataList.ToArray)
DataList.Reverse
Range("C1").Resize(NUM_MAX).Value = _
Application.Transpose(DataList.ToArray)
Set DataList = Nothing
|
 |
