暗淡？d，？ar，？br，？j%？
設置？d？=?createobject(" scripting . dictionary ")'定義字典。
申請。屏幕更新？=?False關閉屏幕刷新。
ar？=?Sheet1。範圍(" A1 ")。CurrentRegion？ar數組等於sheet1(此工作表不壹定是第壹張工作表？，而是壹個vba窗口，其中排序表)a1連續單元格。
br？=?Sheet111。範圍(“B3”)。CurrentRegion？br=？B3連續單元格的sheet111？
為了什麽？我？=?2?去哪？UBound(ar)？第壹周期
d(ar(i，5)?& amp？ar(我，？2))?=?d(ar(i，5)?& amp？ar(我，？2))?+?ar(我，？10)?累積字典值
然後
為了什麽？我？=?2?去哪？UBound(br)占用br的最大周期。
為了什麽？j？=?7?去哪？UBound(br，2)取br的最大柱周期。
br(我，？j)？=?d(br(我，4)?& amp？br(1，？j))？
下壹個？
然後
Sheet111。範圍(“B3”)。CurrentRegion？=?Br將工作表輸出到br。
申請。屏幕更新？=?真的嗎？
結束？潛水艇