ぐぐってみると .Net のArrayListを使ったりという情報があるけど、そこまでしたくない時。 WorksheetFunction.Sortが使えた。 Dim dicSum As New Dictionary, v 'なんか格納 For Each v In WorksheetFunction.Sort(dicSum.Keys, 1, 1, True) Debug.Print "k…