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

5 votes121 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote124 views1 answer
Excel vba Column Name from Column Number
VBA
0 vote125 views1 answer
Vbs expand env var
VBA
0 vote119 views1 answer
Vba change named range address
VBA
0 vote118 views1 answer
Vba dictionary length
VBA
4 votes129 views1 answer
Excel vba determine number of elements in an array
VBA
5 votes128 views1 answer
Excel vba low byte from INTEGER
VBA
1 vote119 views1 answer
Excel vba unload userform
VBA
15 votes120 views1 answer
Excel vba wait
VBA
0 vote120 views1 answer
Excel vba send HTTP POST to server
VBA