以下の画像の通りにしたいんです。
それから、データは
上にある画像のようにA1-100に並べてあります。
そのために、このコード:
Sub specialSort()
Dim i As Integer
Dim j As Integer
Dim inc As Integer
Dim randomData(100) As Integer
Dim n As Integer
For n = 1 To 100
randomData(n) = Cells(n, 1).Value
Next
For i = 1 To n - 1
For j = n To i + 1 Step -1
If randomData(j - 1) > randomData(j) Then
Dim tmp As Integer
tmp = randomData(j - 1)
randomData(j - 1) = randomData(j)
randomData(j) = tmp
End If
Next
Next
For inc = 1 To 100
Cells(inc, 3).Value = randomData(inc)
Next
End Sub
を作りました。
しかし、なぜか実行するときエラーが出ました↓
誰か助けてくださると幸いです。