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 vote384 views1 answer
Iterate all file in a folder vba
VBA
4 votes438 views1 answer
VBA Deep Clone Dictionary
VBA
15 votes510 views1 answer
Excel vba wait
VBA
0 vote377 views1 answer
Excel vba hide gridlines
VBA
0 vote387 views1 answer
Vbnet revrese the order of character in string
VBA
0 vote373 views1 answer
Excel vba prevent saving workbook
VBA
8 votes482 views1 answer
Excel vba make word
VBA
0 vote344 views1 answer
How to carry text to the next line in a label in vb.net
VBA
0 vote361 views1 answer
Excel vba saveas no prompt for overwrite
VBA
1 vote364 views1 answer
Excel format cell as kilowatts
VBA