大佬，如何将1-16随机打散，形成不规则排序

谢谢

Option Explicit
Sub abc()
　Dim a, i, j, n, t
　a = [a1].CurrentRegion.Resize(, 1).Value
　ReDim b(1 To UBound(a), 1 To UBound(a))
　For j = 1 To UBound(b, 2)
　　For i = 1 To j
　　　n = Int(Rnd * (UBound(a) - i + 1)) + i
　　　t = a(i, 1): a(i, 1) = a(n, 1): a(n, 1) = t: b(i, j) = a(i, 1)
　　Next
　Next
　[b1].Resize(UBound(b), UBound(b, 2)) = b
End Sub

升序这个结果可以理解， 1对1 2对2 3对3 4对4

但是这个降序就理解不了 ，为什么3对的是4
按我的想法 结果应该是 2341
@ssg365