Sub？測試()
arr？=?工作表2。Range("A1:E "？& amp？工作表2。[a65536]。結束(xlUp)。排)？存儲在數組中的Sheet2數據。
設置？d1？=?CreateObject("腳本。字典”)？外向詞典
設置？d2？=?CreateObject("腳本。字典”)？返回字典
設置？d3？=?CreateObject("腳本。字典”)？生產詞典
為了什麽？我？=?1?去哪？欠奉
d1(arr(i，1)?& amp？arr(我，？2))?=?d1(arr(i，1)?& amp？arr(我，？2))?+?arr(我，？3)
d2(arr(i，1)?& amp？arr(我，？2))?=?d1(arr(i，1)?& amp？arr(我，？2))?+?arr(我，？4)
d3(arr(i，1)?& amp？arr(我，？2))?=?d1(arr(i，1)?& amp？arr(我，？2))?+?arr(我，？5)
然後
為了什麽？我？=?2?去哪？【iv3】。End(xlToLeft)？壹步？四
為了什麽？j？=?5?去哪？[a65536]。結束(xlUp)。排
細胞(j，我)？=?d1(單元格(j，1).價值？& amp？細胞(3，？我)。值)
細胞(j，我？+?1)?=?d2(細胞(j，1).價值？& amp？細胞(3，？我)。值)
細胞(j，我？+?3)?=?d3(單元格(j，1).價值？& amp？細胞(3，？我)。值)
然後
然後
結束？潛水艇