暗淡？d，？ar，？br，？j%？
設置？d？=?createobject(" scripting . dictionary ")'定義字典。
申請。屏幕更新？=?假的？關閉屏幕刷新
ar？=?Sheet1。範圍(" A1 ")。CurrentRegional數組等於工作表1(此工作表不壹定是第壹張工作表？，而是壹個vba窗口，其中排序表)a1連續單元格。
br？=?Sheet111。範圍(“B3”)。CurrentRegionbr=？B3連續單元格的sheet111？
為了什麽？我？=?2?去哪？UBound(ar)在I上循環。
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
申請。屏幕更新？=?真實的
結束？潛水艇