Sub？測試（）
arr？=?工作表2範圍（“A1:E“？& amp？工作表2【a65536】。結束（xlUp）。劃）？存儲在數組中的Sheet2數據。
設置？d1？=?CreateObject（“腳本。詞典》）？外出詞典
設置？d2？=?CreateObject（“腳本。詞典》）？返回字典
設置？d3？=?CreateObject（“腳本。詞典》）？生產詞典
為了什麽？我？=?1?去哪？欠額
d 1（arr（I，1)?& amp？arr（我，2))?=?d 1（arr（I，1)?& amp？arr（我，2))?+?arr（我，3)
D2（arr（I，1)?& amp？arr（我，2))?=?d 1（arr（I，1)?& amp？arr（我，2))?+?arr（我，4)
D3（arr（I，1)?& amp？arr（我，2))?=?d 1（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，？我)。值）
然後
然後
結束？潛水艇