Sub？sumcolor()
暗淡？r，？c，？n？作為？龍？定義長整型變量。
暗淡？rg？作為？範圍？定義壹個範圍變量。
暗淡？d，？k？定義兩種變量類型。
設置？d？=?CreateObject("腳本。字典”)？創建詞典
r？=?範圍(" A1 ")。special cells(xlCellTypeLastCell)。劃？獲取a列的最大行數。
為了什麽？每個？rg？在？Range("A1:A "？& amp？r)？從A列1循環到最後壹行，每次循環的單元格為rg。
c？=?rg。內飾。顏色？將循環中每個單元格的背景色值賦給變量c。
如果？d .存在(c)？然後呢？如果字典裏有c值。
d(c)？=?d(c)？+?1?c累積1
不然呢？如果c值在字典中不存在。
d(c)？=?1?c分配1
結束？如果？結束判斷
下壹個？下壹個周期
列(“C:C”)。清楚了嗎？清除c列
為了什麽？每個？k？在？鑰匙呢。循環查找字典中的每個關鍵詞。
n？=?n？+?1?n值累加1
用什麽？範圍(" C "？& amp？n)？定義縮寫c列的第n行
.內飾.顏色？=?k？用字典關鍵字的值填充背景色。
。價值？=?d(k)？在單元格中填入與字典關鍵字相對應的項目值。
結束？用什麽？結束速記
下壹個？下壹個周期
設置？d？=?什麽都沒有？清除字典對象
結束？潛水艇