永久在线亚洲观看|亚洲日韩久久AV无码|亚洲无码视频在线免费看|欧美亚洲一区二区三区视频|人人澡人人澡人人看添AV|动漫精品视频一区二区三区|亚洲国产另类久久久精品极度|极品美女熟妇又黄又爽视频一区



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

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

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

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

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

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

    在打開(kāi)的資源管理器里面,右鍵插入模塊

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

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

    End Sub

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

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

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

    標(biāo)簽列表

      顺平县| 淮滨县| 乌兰察布市| 错那县| 武夷山市| 乌拉特前旗| 岳阳县| 项城市| 商都县| 罗城| 柘荣县| 包头市| 芜湖县| 巴中市| 上思县| 安平县| 深泽县| 富平县| 乌拉特前旗| 莆田市| 尼木县| 南汇区| 会理县| 察哈| 淳化县| 花莲市| 石台县| 自贡市| 裕民县| 搜索| 禹城市| 洛宁县| 孟州市| 娱乐| 萝北县| 临安市| 苍溪县| 灵台县| 宣威市| 高唐县| 阳原县|