將D作為對象顯示
Dim單元格作為範圍，數據單元格作為範圍
將溫度調成字符串
set D = CreateObject（“scripting . dictionary“）
對於區域中的每個單元格（“A2:A“& amp；單元格（行。計數，1）。結束（xlUp）。排）
溫度=細胞& amp“& amp& amp細胞。偏移量（0，1）
如果不存在（臨時），則
溫度=細胞。偏移量（0，6）。價值
其他
溫度=細胞。偏移量（0，6）。數值+ D（溫度）
如果…就會結束
然後
範圍（“O:Q”）。清除內容
range（“O 1:Q 1“）= array（“學校“、“年級“、“學年開始時報告的數字“）
設置Dcell =範圍（“O2”）
對於d調中的每個k
Dcell。resize（1，2）= Split（k)
Dcell。offset（0，2）= D（k）
設置Dcell = Dcell。偏移量（1，0）
下壹個k
MsgBox“統計完成！”
末端接頭
程序運行測量圖: