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

25 votes268 views2 answers
Excel vba folder exist
VBA
2 votes132 views2 answers
Excel vba copy values range to another range
VBA
0 vote139 views1 answer
Limit combobox to list vba
VBA
0 vote130 views1 answer
Vba verticalalignment
VBA
0 vote144 views1 answer
Average vba
VBA
0 vote137 views3 answers
Write to text file vb.net
VBA
0 vote138 views1 answer
Vba get workbook name
VBA
0 vote164 views1 answer
Vba cell all borders
VBA
0 vote138 views1 answer
Excel vba existence of a file
VBA
0 vote132 views1 answer
Change whcih control a user has selected vb
VBA