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 vote284 views1 answer
Telephon call in vba
VBA
0 vote287 views1 answer
Vba full date format
VBA
0 vote290 views1 answer
Dlete rows with blanks and space " " vba
VBA
2 votes276 views1 answer
Vba uppercase first letter of each word
VBA
2 votes277 views1 answer
Vba array contains
VBA
0 vote301 views1 answer
Excel vba DisplayAlerts
VBA
5 votes335 views1 answer
Excel-vba get integer high byte
VBA
0 vote293 views1 answer
How to use if condition in time vba
VBA
0 vote311 views1 answer
Excel vba protect shapes
VBA
0 vote266 views1 answer
Add Formula to Shape Text in VBA
VBA