當前位置:成語大全網 - 新華字典 - 找到vba代碼,根據缺失的序列號插入空行並編號。

找到vba代碼,根據缺失的序列號插入空行並編號。

代碼如下:

選項?明確的

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執行以下屏幕復制: