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

3 votes330 views1 answer
Vba make long from two shorts
VBA
1 vote371 views1 answer
Random number generator vb.net
VBA
5 votes360 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote332 views1 answer
Remove frist letter from string vbnet
VBA
0 vote330 views1 answer
Convert unix to date vba
VBA
0 vote330 views1 answer
Vba loop through table
VBA
1 vote324 views1 answer
If inputbox cancel vba
VBA
0 vote335 views1 answer
Vba sort multiple columns
VBA
0 vote347 views1 answer
Vba html document reference
VBA
8 votes428 views1 answer
Excel vba make a short integer from two bytes
VBA