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

9 votes256 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote138 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote127 views1 answer
Vba remove numbers from string
VBA
0 vote127 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote130 views1 answer
Internet explorer reference vba
VBA
1 vote141 views1 answer
Excel date to unix timestamp
VBA
1 vote128 views1 answer
Close form vba
VBA
0 vote133 views1 answer
Vba loop through table
VBA
0 vote133 views1 answer
Excel vba copy entire sheet paste values
VBA
0 vote127 views1 answer
Openfiledialog specific folder
VBA