選項?明確的
Sub?YgB()
暗淡?啊?我,?i2,?j,?k,?m,?n,?c?作為?範圍
arr?=?選擇
我?=?選擇。單元格(1,?1).排
j?=?選擇。單元格(1,?1).圓柱
n?=?0
為了什麽?k?=?1?去哪?欠奉
如果?n?& lt& gt?0?然後
如果?arr(k,?1)?& gt?n?+?1?然後
細胞(i2,1).調整大小(arr(k,1)?-?n?-?1,?1)。
為了什麽?每個?c?在?細胞(i2,1).調整大小(arr(k,1)?-?n?-?1,?1).細胞
n?=?n?+?1
c.價值?=?n
i2?=?i2?+?1
下壹個?c
結束?如果
i2?=?i2?+?1
其他
i2?=?我?+?k
結束?如果
n?=?arr(k,?1)
下壹個?k
結束?Sub執行以下屏幕復制: