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 vote170 views1 answer
Vba like with wildcard
VBA
0 vote180 views1 answer
Delete all controls in an area vb
VBA
2 votes178 views1 answer
Vba split string
VBA
0 vote192 views2 answers
Excel vba number format file size
VBA
0 vote179 views1 answer
How to use if condition in time vba
VBA
0 vote169 views1 answer
Vba pass named range to function
VBA
1 vote213 views1 answer
Excel vba get column number from column name
VBA
0 vote172 views1 answer
Vba format currency
VBA
0 vote194 views1 answer
Weekday vba
VBA
0 vote207 views1 answer
Winforms dark title bar
VBA