哪位帮我写个把数字按大小排列的VBA代码

执行如下VBA程序即可：

Sub PaiXu()

Dim arr(1 To 6), temp

Dim i, n

For i = 1 To 6

arr(i) = Range("A" & i).Value

Next i

For n = 6 To 2 Step -1

For i = 2 To n

If arr(i)

temp = arr(i)

arr(i) = arr(i - 1)

arr(i - 1) = temp

End If

Next i

Next n

For i = 1 To 6

Range("A" & i + 6).Value = arr(i)

Next i

End Sub