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 vote255 views1 answer
Vba integer to double
VBA
0 vote240 views1 answer
Excel vba automatic calculation
VBA
1 vote254 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote238 views2 answers
Get excel file from email attachment in vba
VBA
2 votes296 views1 answer
Vba round number
VBA
0 vote251 views1 answer
Open file dialog in vb.net
VBA
0 vote239 views4 answers
How to continue formula in below line in vba code
VBA
0 vote255 views1 answer
Excel vba first column in range
VBA
0 vote231 views1 answer
Excel vba assign shortcut key to button
VBA
2 votes184 views1 answer
Excel vba pause
VBA