問題如下：

解決的思路如下：

代碼運行的結(jié)果如下：

代碼如下:

代碼解析

1：dim定義變量

2：獲取單元格的最后一個非空單元格的行號，并把數(shù)據(jù)區(qū)域，放入數(shù)組arr

3：后期綁定字典，用for循環(huán)遍歷數(shù)組。每一個單元格，再用split函數(shù)分解為另外一個數(shù)組，用Cint函數(shù)，把字符串轉(zhuǎn)化成數(shù)字。然后放入字典進行計數(shù)

可參考之前發(fā)布的文章《Excel VBA 數(shù)組公式Split 和Join》及《Excel VBA 字典的常用方式》

4：重新定義一個新的二維數(shù)組brr。

5：把序號及序號出現(xiàn)的次數(shù)，先傳給數(shù)組brr

6：把上述數(shù)組寫入工作表。

6：用sort函數(shù)對單元格數(shù)值（數(shù)組）進行排序crr

7：把排序之后的結(jié)果，傳給數(shù)組brr

8：清空之前寫入的brr數(shù)組，重新設(shè)定區(qū)域并寫入brr

PS:此次Excel的表格里面，除了VBA的方法，還有公式。