Sort dictionary by key vba

Public Function funcSortKeysByLengthDesc(dctList As Object) As Object
    Dim arrTemp() As String
    Dim curKey As Variant
    Dim itX As Integer
    Dim itY As Integer

    'Only sort if more than one item in the dict
    If dctList.Count > 1 Then

        'Populate the array
        ReDim arrTemp(dctList.Count - 1)
        itX = 0
        For Each curKey In dctList
            arrTemp(itX) = curKey
            itX = itX + 1
        Next

        'Do the sort in the array
        For itX = 0 To (dctList.Count - 2)
            For itY = (itX + 1) To (dctList.Count - 1)
                If Len(arrTemp(itX)) < Len(arrTemp(itY)) Then
                    curKey = arrTemp(itY)
                    arrTemp(itY) = arrTemp(itX)
                    arrTemp(itX) = curKey
                End If
            Next
        Next

        'Create the new dictionary
        Set funcSortKeysByLengthDesc = CreateObject("Scripting.Dictionary")
        For itX = 0 To (dctList.Count - 1)
            funcSortKeysByLengthDesc.Add arrTemp(itX), dctList(arrTemp(itX))
        Next

    Else
        Set funcSortKeysByLengthDesc = dctList
    End If
End Function

Source: stackoverflow.com

Similar codes

0 vote210 views1 answer
Afficher un message d'erreur vba
VBA
0 vote209 views1 answer
Vba check 32 or 64 bit
VBA
0 vote283 views1 answer
Vba is integer
VBA
1 vote215 views1 answer
Highlight selected cell in excel vba
VBA
0 vote260 views1 answer
Vba userform textbox wrap text
VBA
1 vote217 views1 answer
Excel vba first and last row and column in range
VBA
0 vote225 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote243 views1 answer
Vba verticalalignment
VBA
0 vote231 views2 answers
Excel vba number format file size
VBA
0 vote203 views1 answer
How to self delete a vbscript file
VBA