vba字典的計算次數

獲取出現次數最多的數據比較麻煩，但是有辦法實現:壹次掃描全表，用字典對象記錄所有數據的出現次數，代碼框架:

設置？db=CreateObject("腳本。字典》)

aarr=Range("A1 ")。當前區域

為了什麽？i=1？去哪？欠奉

k=arr(i，1)

v=arr(i，2)

如果？不是嗎？db。存在(k)？然後呢？db.add？k，？CreateObject("腳本。字典》)

db(k)(v)=db(k)(v)+1

下壹個？我程序執行後db(“張”)的數據是{ 2-->；2，4->1}

將這些數據顯示給例程，如下所示:

i=2？輸出線

J=10 '輸出列

為了什麽？每個？k？在？數據庫密鑰

單元格(I，j)=k

x=0

為了什麽？每個？v？在？分貝(k)。鍵

如果？db(k)(v)gt；x？然後

x =分貝(k)(v)

Y=v '至少執行壹次，x最初為0。

結束？如果

下壹個？v

單元格(I，j+1)=y

I=i+1 '下壹行

下壹個？k