前沿拓展:
大家好,今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分,目標(biāo)效果見(jiàn)圖2。
圖1
圖2
**作步驟
1.打開(kāi)工作表,單擊窗口上方“開(kāi)發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開(kāi)的VBA編輯器窗口左側(cè),找到“Microsoft Excel對(duì)象”列表中的“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)行子過(guò)程/用戶窗體”按鈕。
5.返回工作表,可見(jiàn)C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場(chǎng)技能##辦公技能#
拓展知識(shí):
前沿拓展:
大家好,今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分,目標(biāo)效果見(jiàn)圖2。
圖1
圖2
**作步驟
1.打開(kāi)工作表,單擊窗口上方“開(kāi)發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開(kāi)的VBA編輯器窗口左側(cè),找到“Microsoft Excel對(duì)象”列表中的“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)行子過(guò)程/用戶窗體”按鈕。
5.返回工作表,可見(jiàn)C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場(chǎng)技能##辦公技能#
拓展知識(shí):
前沿拓展:
大家好,今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分,目標(biāo)效果見(jiàn)圖2。
圖1
圖2
**作步驟
1.打開(kāi)工作表,單擊窗口上方“開(kāi)發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開(kāi)的VBA編輯器窗口左側(cè),找到“Microsoft Excel對(duì)象”列表中的“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)行子過(guò)程/用戶窗體”按鈕。
5.返回工作表,可見(jiàn)C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場(chǎng)技能##辦公技能#
拓展知識(shí):
前沿拓展:
大家好,今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進(jìn)行拆分。
應(yīng)用案例
將下面圖1中C列“組別”列的所有合并單元格進(jìn)行批量拆分,目標(biāo)效果見(jiàn)圖2。
圖1
圖2
**作步驟
1.打開(kāi)工作表,單擊窗口上方“開(kāi)發(fā)工具”選項(xiàng)卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開(kāi)的VBA編輯器窗口左側(cè),找到“Microsoft Excel對(duì)象”列表中的“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)行子過(guò)程/用戶窗體”按鈕。
5.返回工作表,可見(jiàn)C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場(chǎng)技能##辦公技能#
拓展知識(shí):
原創(chuàng)文章,作者:九賢生活小編,如若轉(zhuǎn)載,請(qǐng)注明出處:http://xiesong.cn/77013.html