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 vote203 views1 answer
Excel vba select multiple shapes
VBA
0 vote215 views1 answer
If statement vdhl
VBA
0 vote198 views1 answer
Excel vba show developer tab
VBA
0 vote185 views1 answer
Vba pass named range to function
VBA
0 vote132 views10 answers
Vba excel create event log
VBA
0 vote202 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
0 vote195 views1 answer
Type excel.application is not defined vb
VBA
8 votes220 views1 answer
Excel vba determine number of elements in a 2D array
VBA
0 vote191 views1 answer
Excel vba remove formatting from cell
VBA
0 vote211 views1 answer
Excel vba first column in range
VBA