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 vote317 views1 answer
Vba collection contains
VBA
0 vote301 views1 answer
Vba paste values
VBA
0 vote325 views1 answer
Menus act like radio buttons vb.net
VBA
0 vote354 views1 answer
Application.ExecutablePath VB.NET
VBA
0 vote339 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote358 views1 answer
Programmatically copy data from one workshet to another excel
VBA
0 vote296 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote310 views1 answer
Dynamic array vba
VBA
0 vote407 views1 answer
Vba vbcrlf chr
VBA
0 vote312 views1 answer
Arq linux
VBA