前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分，目標(biāo)效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進(jìn)行處理的工作表，雙擊鼠標(biāo)。
3.在彈出的代碼編輯窗口中輸入如下代碼：
Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub
4.單擊VBA編輯器窗口上方的“運(yùn)行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分，目標(biāo)效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進(jìn)行處理的工作表，雙擊鼠標(biāo)。
3.在彈出的代碼編輯窗口中輸入如下代碼：
Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub
4.單擊VBA編輯器窗口上方的“運(yùn)行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分，目標(biāo)效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進(jìn)行處理的工作表，雙擊鼠標(biāo)。
3.在彈出的代碼編輯窗口中輸入如下代碼：
Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub
4.單擊VBA編輯器窗口上方的“運(yùn)行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分，目標(biāo)效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進(jìn)行處理的工作表，雙擊鼠標(biāo)。
3.在彈出的代碼編輯窗口中輸入如下代碼：
Private Sub kbiji()Dim i As RangeFor Each i In ActiveSheet.UsedRangeIf i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Theni.MergeArea.Selecti.MergeArea.UnMergeSelection.FillDownEnd IfNext iEnd Sub
4.單擊VBA編輯器窗口上方的“運(yùn)行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
原創(chuàng)文章，作者：九賢生活小編，如若轉(zhuǎn)載，請注明出處：http://m.cxzzxj.cn/77013.html
相關(guān)推薦
-
聯(lián)想ideapad710s(聯(lián)想ideapad710s可以加內(nèi)存條嗎)
聯(lián)想ideapad710s 支持。 硬盤安裝win7。 一、下載 Windows7原版光盤鏡像。 二、 將 Windows7 原版鏡像解壓到 C區(qū)外任何一個分區(qū)根目錄。 三、下載硬…
-
1000以內(nèi)主機(jī)配置(1000以內(nèi)的游戲手機(jī)買什么好)
1000以內(nèi)主機(jī)配置(1000以內(nèi)的游戲手機(jī)買什么好) 老鐵們好啊，今天小編給大家分享下我們在使用電腦和筆記本電腦過程中會遇到的一些問題故障該如何處理，電腦使用的一些小技巧等內(nèi)容 …
-
mac os x 10.9-macos u盤啟動盤制作教程
本文目錄1、macos u盤啟動盤制作教程？2、請教MacBook Air從OS X 10.8.5升級到10.9的幾個問題？3、14年macosx是什么系統(tǒng)？4、mac os哪個版本是免費(fèi)的？5、mac系統(tǒng)格式選什么？1、macos u盤啟動盤制作教程？答方法如下一、通過DiskMaker X軟件制作蘋果OS X U盤啟動盤擁有以下特點(diǎn)： 1、支持制作Mac OS X 10.7.x，10.8.x
-
2月**電視市場出貨量達(dá)241萬臺：小米第2 完勝索尼、三星
根據(jù)洛圖科技（RUNTO）發(fā)布的《中國電視市場品牌出貨月度快報》數(shù)據(jù)顯示，2023年2月，中國電視市場品牌整機(jī)出貨量達(dá)到241萬臺，同比增長26.8%，環(huán)比下降28.5%?？紤]到春節(jié)假期的影響，將今年1-2月累計來看，出貨578萬臺，同比小
-
二手電腦價格估價(二手電腦估價軟件)
二手電腦價格估價(二手電腦估價軟件) 老鐵們好啊，很多朋友對于手機(jī)使用都有很多問題。今天小編給大家分享下我們在使用手機(jī)過程中會遇到的一些問題故障該如何處理，熱門**需求配置，手機(jī)使…
-
聯(lián)想電腦官方旗艦店(聯(lián)想電腦官方旗艦店地址西安)
聯(lián)想電腦官方旗艦店(聯(lián)想電腦官方旗艦店地址西安) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用的一些小技巧 聯(lián)…
-
8000電腦主機(jī)配置2019(8000主機(jī)配置推薦)
8000電腦主機(jī)配置2019：核心處理器的選擇 在2019年，選擇一個好的核心處理器是電腦主機(jī)配置中的重要環(huán)節(jié)。在8000元的預(yù)算內(nèi)，選擇較為合適的處理器非常關(guān)鍵。市面上的Inte…
-
性能最好的臺式電腦：性能最好的車
性能最好的臺式電腦：性能最好的車 大家好，關(guān)于性能最好的臺式電腦：性能最好的車很多朋友都還不太明白，不過沒關(guān)系，因?yàn)榻裉煨【幘蛠頌榇蠹曳窒黻P(guān)于性能最好的臺式電腦：性能最好的車的知識…
-
2016年高端游戲筆記本推薦(能玩高端游戲的筆記本)
2016年高端游戲筆記本推薦(能玩高端游戲的筆記本) 老鐵們好啊，今天小編給大家分享下我們在使用電腦和筆記本電腦過程中會遇到的一些問題故障該如何處理，電腦使用的一些小技巧等內(nèi)容 首…
-
筆記本二手推薦(筆記本二手怎么估價)
很多朋友對于筆記本二手推薦(筆記本二手怎么估價)和筆記本二手推薦(筆記本二手怎么估價)不太懂，今天就由小編來為大家分享，希望可以幫助到大家，下面一起來看看吧！ 1500二手筆記本電…