请教不重复随机数排序的问题

luchao124

自己写了一段代码  生成20个不重复的随机数 在单元格区域 a1：t1 显示
然后进行排序 在a2:t2显示
但代码并没有实现排序 ，请问代码错在哪里? 代码如下：

Sub 不重复随机数排序()
Dim arr()
Dim rng As Range, r1 As Range
Set rng = Range("a1:t1")
Randomize
For Each r1 In rng
    Do
        r1 = Int(Rnd * 100 + 1)

    Loop Until Application.WorksheetFunction.CountIf(rng, r1) = 1
Next

arr = Range("a1:t1")
For i = 1 To UBound(arr, 1) - 1
    For j = i + 1 To UBound(arr, 1)
        If arr(i, 1) < arr(j, 1) Then
        t = arr(i, 1)
        arr(i, 1) = arr(j, 1)
        arr(j, 1) = t
        End If
    Next

Next

Range("a2:t2") = arr

End Sub