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

-1 vote150 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote152 views1 answer
Excel vba combine ranges
VBA
0 vote141 views1 answer
Vba line feed
VBA
0 vote157 views1 answer
Vbnet line chart showing extra space
VBA
0 vote159 views1 answer
Windows Presentation Foundation dark title bar
VBA
5 votes170 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote160 views1 answer
Vba range clear formatting
VBA
0 vote142 views1 answer
Excel vba milliseconds
VBA
0 vote161 views1 answer
Vba remove last vbcrlf
VBA
0 vote110 views1 answer
Vba code to remove leading and trailing spaces
VBA