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 vote266 views1 answer
VBA Sort RossetaCode
VBA
3 votes254 views1 answer
Extract word in a text in excel
VBA
5 votes248 views1 answer
Excel vba first byte from INTEGER
VBA
4 votes243 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote220 views1 answer
Excel vba range contains
VBA
0 vote220 views1 answer
Vba add spaces
VBA
0 vote234 views1 answer
Vbnet line chart showing extra space
VBA
0 vote268 views4 answers
Jwt token vb.net validation
VBA
1 vote225 views1 answer
Excel vba Run a Macro every time sheet is changed
VBA
31 votes520 views1 answer
Vba how to convert a column number into an Excel column
VBA