打開您的Excel文件，按“Alt+F11”打開VBA編輯窗口，然後雙擊左邊相應的工作表，將下面的代碼粘貼到右邊的空白處。關閉VBA窗口。然後按Alt+F8打開“宏”窗口，選擇剛剛插入的宏，然後單擊“執行”。
Sub？xh()
暗淡？rg？作為？範圍
暗淡？我，？r，？n？作為？長的
r？=?單元格(行。數數，？2).結束(xlUp)。排
為了什麽？每個？rg？在？Range("B2:B "？& amp？r)
如果？rg。劃？=?2?然後
n？=?0
其他
如果？rg。價值？=?rg。偏移量(-1，？0).價值？然後呢？n？=?n？+?1?不然呢？n？=?0
結束？如果
rg。偏移量(0，？-1).價值？=?n
然後
為了什麽？我？=?r？去哪？2?壹步？-1
如果？細胞(我，？1)?=?0?然後
如果？細胞(我？+?1,?1)?& lt& gt？1?然後呢？行(I)。刪除
其他
如果？細胞(我？+?1,?1).價值？=?0?然後呢？行(我？+?1).插入:？細胞(我？+?1,?1).價值？=?"結束"
結束？如果
然後
結束？潛水艇