VBA 遇到棘手的问题，求救大虾....

“数量”是指包含的字母个数吧，可以用LEN函数，不必非得用VBA呀。

假设原字符在A列，可在B列的B1格用公式=len(a1)来得到A1格的字符长度，然后把B1向下拖动复制，最后同时选中A列与B列，用“数据－排序”，以B列为第一关键字“升序”排序即可。

字典可以保留对象，自定义类也可以，下面的语句保留WorkSheet、Range的例子：

Dim d as Object, w as WorkSheet, r as Range

Set d=CreateObject("Scripting.Dictionary")

set w=ActiveSheet

set r=Range("a1")

d.Add 'sheet', w

d.add 'range', r

---