暗淡？d，？ar，？br，？j%？
設置？d？=?createobject（“scripting . dictionary“）定義字典。
申請。屏幕更新？=?關閉屏幕刷新。
ar？=?1。範圍（“A1“）。當前區域？ar數組等於sheet1（此工作表不壹定是第壹張工作表？，而是壹個vba窗口，其中排序的表格）a1連續單元格。
br？=?111。範圍（“B3”）。當前區域？br=？sheet111的B3連續單元格？
為了什麽？我？=?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（I，？4)?& amp？br（1，j）？
下壹個？
然後
111。範圍（“B3”）。當前區域？=?Br將工作表輸出到br。
申請。屏幕更新？=?真的嗎？
結束？潛水艇