下奧秘
I為整數，r為整數，c為整數
變型時尺寸變小
大小=數組（4，3，3）
帶活動表
r =。used range。row
c =。used range。column
對於i =上界（大小）到下界（大小）
。單元格（r，c + 2）。調整大小（大小（I））。Value = WorksheetFunction.sum（。單元格（r，c）。調整大小（大小（I））
r = r +尺寸（I）
接下來我
以…結尾
末端接頭