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 vote217 views1 answer
Vba Remove Case Sensitivity
VBA
0 vote258 views1 answer
Excel vba urlmon
VBA
0 vote236 views1 answer
Vb check if row has column
VBA
0 vote229 views1 answer
Excel vba assign shortcut key to button
VBA
1 vote233 views1 answer
Excel vba autofit
VBA
-1 vote246 views1 answer
How to correct a number to 2 decimal places in vba
VBA
0 vote246 views1 answer
Openfiledialog specific folder
VBA
0 vote227 views1 answer
Refresh token em vb net
VBA
0 vote245 views1 answer
VB get external IP address
VBA
0 vote242 views1 answer
Arq linux
VBA