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

1 vote369 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote374 views1 answer
Vbnet check if string is only letters
VBA
0 vote337 views1 answer
Vbnet check if string is only symbols
VBA
1 vote355 views1 answer
Vba refresh pivot table
VBA
1 vote337 views2 answers
Vba remove first 2 characters from string
VBA
15 votes497 views1 answer
Excel vba wait
VBA
0 vote375 views2 answers
Excel vba number format file size
VBA
0 vote351 views1 answer
Excel vba formatconditions positive
VBA
0 vote367 views1 answer
Rotate image by any angle vb.net
VBA
0 vote358 views1 answer
Vba get application version
VBA