亚洲欧美日韩国产成人|亚洲中文字幕无码中字|HEYZO在线无码综合|久久久不卡精品国产一区二|久久精品亚洲无中文东京热|中文字幕乱码一区三区免费|亚洲国产欧美在线观看片不卡|国产精品久久一区二区三区97

一秒刪除工作表里面的合并單元格行

保健品 nanfang 2023-09-05 01:39 117 0

在整理數(shù)據(jù)的時(shí)候，經(jīng)常會(huì)遇到需要?jiǎng)h除有合并單元格的行。如下圖，表內(nèi)有幾百個(gè)這樣的合并表頭要一個(gè)個(gè)刪除實(shí)在是浪費(fèi)時(shí)間，用VBA的話，一秒解決，剩下的時(shí)間該怎么玩怎么玩。哈哈~~

在此之前，記得想把你的Excel另存為啟用宏的格式

接下來(lái)記得開啟宏功能，步驟如下：Excel文件——選項(xiàng)——信任中心——信任中心設(shè)置——宏設(shè)置——勾選啟用所有宏——勾選信任VBA，如下圖：

接下來(lái)，把代碼復(fù)制到VBA窗口，方法是右鍵點(diǎn)擊工作表，選擇查看代碼

在打開的資源管理器里面，右鍵插入模塊

然后把以下代碼復(fù)制進(jìn)去Sub 刪合并單元格行() Dim i As Long For i = Cells(1048576, 1).Endwps2016政府版(xlUp).Row To 2 Step -1 從工作表最后一個(gè)單元格開始向上倒著執(zhí)行

If Cells(i, 1).MergeCells Then 如果單元格為合并單元格 Cells(i, 1).EntireRow.Delete 符合條件的都刪除整行 End If Next 檢測(cè)下一個(gè)

End Sub

保存代碼。關(guān)閉該窗口回到工作表，點(diǎn)擊開發(fā)工具——宏——選擇刪合并單元格行——執(zhí)行

一秒運(yùn)行后得到如下結(jié)果，即只保留了第一行標(biāo)題行的合并單元格，其他的合并單元格行都被刪除了。

如果你工作中有需要處理大量的這種數(shù)據(jù)，可以嘗試一下哦。

標(biāo)簽列表