請新建壹個工作表，命名為“Summary”(可以隨意更改名稱)。然後按“Alt+F11”打開VBA編輯窗口，雙擊左邊對應的工作表摘要，將下面的代碼粘貼到右邊的空白處。關閉VBA窗口。然後按Alt+F8打開“宏”窗口，選擇剛剛插入的宏，然後單擊“執行”。
Sub？hz()？
暗淡？bt，？我，？r，？c，？n，？首先？作為？龍？
bt？=?1?表頭有幾行，那麽這裏的1要改多少？
細胞。清楚了嗎？
為了什麽？我？=?1?去哪？床單。數數？
如果？床單(壹)。名字？& lt& gt？ActiveSheet。名字？然後呢？
如果？首先？=?0?然後呢？
c？=?床單(壹)。單元格(1，？列。數數)。End(xlToLeft)。專欄？
床單(壹)。範圍(" A1 ")。調整大小(bt，？c)。復制？Range("A1 ")？
n？=?bt？+?1:?首先？=?1?
結束？如果？
r？=?床單(壹)。單元格(行。數數，？“壹”)。結束(xlUp)。劃？
床單(壹)。範圍(" A "？& amp？bt？+?1).調整大小(r？-?1,?c)。復制？範圍(" A "？& amp？n)？
n？=?n？+?r？-?bt？
結束？如果？
下壹個？
結束？潛水艇