一秒刪除工作表里面的合并單元格行
在整理數據的時候,經常會遇到需要刪除有合并單元格的行。如下圖,表內有幾百個這樣的合并表頭要一個個刪除實在是浪費時間,用VBA的話,一秒解決,剩下的時間該怎么玩怎么玩。哈哈~~
在此之前,記得想把你的Excel另存為啟用宏的格式
接下來記得開啟宏功能,步驟如下:Excel文件——選項——信任中心——信任中心設置——宏設置——勾選啟用所有宏——勾選信任VBA,如下圖:
接下來,把代碼復制到VBA窗口,方法是右鍵點擊工作表,選擇查看代碼
在打開的資源管理器里面,右鍵插入模塊
然后把以下代碼復制進去Sub 刪合并單元格行() Dim i As Long For i = Cells(1048576, 1).Endwps2016政府版(xlUp).Row To 2 Step -1 從工作表最后一個單元格開始向上倒著執(zhí)行
If Cells(i, 1).MergeCells Then 如果單元格為合并單元格 Cells(i, 1).EntireRow.Delete 符合條件的都刪除整行 End If Next 檢測下一個
End Sub
保存代碼。關閉該窗口回到工作表,點擊開發(fā)工具——宏——選擇刪合并單元格行——執(zhí)行
一秒運行后得到如下結果,即只保留了第一行標題行的合并單元格,其他的合并單元格行都被刪除了。
如果你工作中有需要處理大量的這種數據,可以嘗試一下哦。