如何编码以将数据从范围中提取为字符串，以后代顺序排序并输出至范围

Question

我要做的是从该范围中提取数据，并按后代顺序对其进行排序，并在下一行中将其输出为数字。

这是我尝试过的。我感觉到字符串位置交换是个问题。

Sub RankDepart()

    Dim r As Integer
    Dim x As Integer
    Dim n As Integer
    Dim Str() As Variant

    Str = Worksheets("First Page").Range("B5: H5").Value

    For r = 0 To r = 6

        For x = 1 To x = 6
            If Str(r) < Str(x) Then
            n = Str(r)
            Str(r) = Str(x)
            Str(x) = n
        End If

        x = x + 1
        r = r + 1

        Next
    Next

    Worksheets("First Page").Activate
    Range("B6:H6").Value = Str

End Sub

我有数据28 61 29 2 57 11 7 我期望61 57 29 28 11 7 2

但是目前，我正在获得28 61 29 2 57 11 7                           28 61 29 2 57 11 7 它是上一行的dup