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 vote123 views1 answer
Enable macros on opening workbook vba
VBA
1 vote115 views1 answer
Excel format cell as kilowatts
VBA
0 vote173 views2 answers
Excel vba store array and write to sheet
VBA
0 vote133 views1 answer
Vba dictionary clear
VBA
0 vote118 views1 answer
Vba line feed
VBA
3 votes133 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote120 views1 answer
Vba array of integers
VBA
0 vote123 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote129 views1 answer
Vba word open document read only
VBA
1 vote146 views1 answer
Excel vba convert text YYYYMMDD to date
VBA