VBA数值快速排序

Sub dd() '快速高效排序
Dim arr, arr1(1 To 1000, 1 To 1), x, n1
t = Time
arr = Range("a1:a1000")
For x = 1 To 1000 Step 1
arr1(x, 1) = Application.WorksheetFunction.Min(arr)
For n1 = 1000 To 1 Step -1
If arr(n1, 1) = arr1(x, 1) Then
arr(n1, 1) = ""
Exit For
End If
Next
Next
Range("b1:b1000") = arr1
MsgBox Time - t
End Sub