前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進行拆分。
應用案例
將下面圖1中C列“組別”列的所有合并單元格進行批量拆分，目標效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進行處理的工作表，雙擊鼠標。
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編輯器窗口上方的“運行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進行拆分。
應用案例
將下面圖1中C列“組別”列的所有合并單元格進行批量拆分，目標效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進行處理的工作表，雙擊鼠標。
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編輯器窗口上方的“運行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進行拆分。
應用案例
將下面圖1中C列“組別”列的所有合并單元格進行批量拆分，目標效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進行處理的工作表，雙擊鼠標。
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編輯器窗口上方的“運行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進行拆分。
應用案例
將下面圖1中C列“組別”列的所有合并單元格進行批量拆分，目標效果見圖2。
圖1
圖2
**作步驟
1.打開工作表，單擊窗口上方“開發(fā)工具”選項卡“代碼”功能組中的“Visual Basic”按鈕。
2. 在打開的VBA編輯器窗口左側(cè)，找到“Microsoft Excel對象”列表中的“Sheet16（合并單元格批量拆分)”，也就是我們要進行處理的工作表，雙擊鼠標。
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編輯器窗口上方的“運行子過程／用戶窗體”按鈕。
5.返回工作表，可見C列“組別”列中所有合并單元格已經(jīng)全部拆分為了**的單元格。
#職場技能##辦公技能#
拓展知識：
原創(chuàng)文章，作者：九賢生活小編，如若轉(zhuǎn)載，請注明出處：http://xiesong.cn/77013.html
相關(guān)推薦
-
筆記本電腦換電池教程，換筆記本電腦電池多少錢左右
筆記本電腦換電池教程，換筆記本電腦電池多少錢左右 大家好，今天來為大家解答筆記本電腦換電池教程，換筆記本電腦電池多少錢左右這個問題的一些問題點，包括筆記本電腦換電池教程，換筆記本電…
-
win10應用很慢(win10應用程序響應慢)
前沿拓展： win10應用很慢 1、在開始菜單上單擊鼠標右鍵，選擇【網(wǎng)絡連接】2、此時將進入“網(wǎng)絡連接”界面，右擊“以太網(wǎng)”或“Wlan”圖標，選擇“屬性”3、從打開的“本地連前船…
-
電腦主板模擬(怎么看電腦主板)
什么是電腦主板模擬 電腦主板模擬是指在電腦軟件層面上對主板進行模擬和仿真。它可以讓計算機系統(tǒng)應用程序無需依賴于實體主板的硬件環(huán)境，而直接運行在虛擬的主板環(huán)境中。主板模擬包含很多不同…
-
好配置主機(配置主機路由)
選擇好的硬件配置： 為了能夠擁有一個好配置的主機，第一需要選擇好的硬件配置。CPU、內(nèi)存、顯卡是主機性能的重要部件。在選擇CPU時，需要根據(jù)自己的需求來選擇。如果只是一些日常辦公，…
-
電腦主板技嘉B85好么(技嘉主板B85最好系列)
介紹技嘉B85主板 技嘉B85主板是一款基于Intel B85芯片組的主板，適用于普通家用和商用辦公場所。該主板支持第四代Intel Core處理器，搭載了LGA1150插槽，最高…
-
臺式機r5顯卡相當于n卡(r5 230顯卡相當于什么核顯)
臺式機r5顯卡相當于n卡(r5 230顯卡相當于什么核顯) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門游戲電腦配置需求，電腦使用的一些…
-
i77700k用什么主板(i77700k配什么主板)
概述 i7 7700k 是 Intel 的第七代酷睿處理器，屬于 LGA1151 接口架構(gòu)下的 Kaby Lake 架構(gòu)，主頻高達4.2 GHz，具有4個核心8個線程，可以勝任大部…
-
ie10中文版官方下載xp(ie11中文版官方下載)
前沿拓展： ie10中文版官方下載xp 從IE9開始，IE已經(jīng)不再支持XP系統(tǒng)，即使下載了IE10也是無法的安裝的 nternet Explorer 10（全稱Windows In…
-
internet explorer 下載
前沿拓展： internet explor 解決方法如下：打開36設幾真0安全衛(wèi)士后，再點與所探是型濟抓們擊打開上面【木馬查殺】這項，在右側(cè)【熱點問題修復】里，你點擊【網(wǎng)頁打不開】…
-
戴爾筆記本最新款(戴爾筆記本最新款2022)
戴爾筆記本最新款 IT之家 4 月 13 日消息，戴爾在今年 2 月底發(fā)布了 2023 款 XPS 15 和 XPS 17 筆記本，配置升級到第 13代英特爾酷睿處理器和英偉達的 …