前沿拓展：
大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進行拆分。
應(yīng)用案例
將下面圖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工作表中的合并單元格批量進行拆分。
應(yīng)用案例
將下面圖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工作表中的合并單元格批量進行拆分。
應(yīng)用案例
將下面圖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工作表中的合并單元格批量進行拆分。
應(yīng)用案例
將下面圖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:///77013.html
相關(guān)推薦
-
2015機箱配置單(迷你機箱配置單)
2015機箱配置單 2015年，機箱作為計算機硬件的一個重要組成部分，成為了不少用戶重點關(guān)注的選擇對象。在這篇文章中，我們將分享一份2015年機箱配置單，幫助您選擇最合適的機箱。 …
-
電腦主機那里配裝(電腦主機去那里查價格)
要考慮的因素 在選擇電腦主機時，需要考慮許多因素。第一，需要確保主機的大小、形狀和內(nèi)部組織結(jié)構(gòu)與用戶的特定需求相匹配。對于對游戲或圖形設(shè)計有更高要求的用戶，較大的主機更適合他們，以…
-
百度和360(百度和360推廣哪個銷售好做)
前沿拓展： ? ? ? ? 眾所周知，搜索引擎行業(yè)一直被認為是離錢最近的互聯(lián)網(wǎng)行業(yè)，只要你能占據(jù)一定得市場份額，你就可以通過廣告聯(lián)盟如adsense等進行分成，或者直接自己招募**…
-
卡巴斯基數(shù)據(jù)庫損壞-windows更新數(shù)據(jù)庫損壞
本文目錄1、windows更新數(shù)據(jù)庫損壞？2、數(shù)據(jù)庫出錯是什么意思？3、卡巴斯基數(shù)據(jù)庫如何更新？4、卡巴斯基是什么？5、怎么修復(fù)已經(jīng)損壞的SQL數(shù)據(jù)庫？1、windows更新數(shù)據(jù)庫損壞？ Windows更新數(shù)據(jù)庫損壞的話，那你只能重新安裝操作系統(tǒng)。更新的時候系統(tǒng)千萬不能自動關(guān)機，或者你幫他手動去把它關(guān)機掉，很容易破壞系統(tǒng)的文件的。如果真的是windows系統(tǒng)出現(xiàn)數(shù)據(jù)庫損壞的話，建議你還是重新安裝吧
-
千元筆記本電腦推薦(一千多塊的筆記本能買嗎)
千元筆記本電腦推薦(一千多塊的筆記本能買嗎) 老鐵們好啊，今天小編給大家分享下我們在使用電腦過程中會遇到的一些問題故障該如何處理，熱門電腦游戲需求配置，電腦使用的一些小技巧 臺式電…
-
i3-4150配什么主板，推薦一款適用于i34150的主板
i3-4150適合選用哪種主板？ 由于i3-4150屬于Intel第四代Corei3處理器，所以最好選擇一款適用于Intel第四代處理器的主板。例如，適用于Intel第四代處理器的…
-
筆記本鍵盤錯亂-鍵盤亂碼了怎么恢復(fù)
本文目錄1、鍵盤亂碼了怎么恢復(fù)？2、鍵盤錯位字母亂了怎么辦？3、筆記本外接鍵盤錯亂怎么恢復(fù)？4、筆記本鍵盤亂了怎么恢復(fù)？5、筆記本鍵盤按鍵錯亂怎么辦？1、鍵盤亂碼了怎么恢復(fù)？鍵盤亂碼恢復(fù)方法：1，如果您的是筆記本出現(xiàn)輸入亂碼的情況，先外接一個鍵盤；2、按下Numlock鍵關(guān)掉數(shù)字小鍵盤，筆記本電腦的鍵盤即可恢復(fù)正常。 3、如果沒有外接鍵盤，就找到自帶鍵盤的Fn鍵，先按住Fn鍵，再按住數(shù)字鍵盤上方的
-
聯(lián)想v470說明書，聯(lián)想筆記本V470
大家好，今天小編來為大家解答聯(lián)想v470說明書，聯(lián)想筆記本V470這個問題，聯(lián)想v470說明書，聯(lián)想筆記本V470很多人還不知道，現(xiàn)在讓我們一起來看看吧！聯(lián)想Z6評測：輕薄的外表下，擁有一顆強悍的芯今年的聯(lián)想手機在性價比上應(yīng)該是做到了極致，之前發(fā)布的Z6Pro，在當時的驍龍855旗艦中，有著極高的性價比，讓人一下子就記住了它。不過，搶占手機市場還是要
-
760k配什么主板和顯卡(760k帶什么顯卡)
760k配什么主板和顯卡(760k帶什么顯卡) 老鐵們好啊，今天小編給大家分享下我們在使用電腦和筆記本電腦過程中會遇到的一些問題故障該如何處理，還有電腦顯卡硬件和筆記本硬件的知識 …
-
鏡像的win10是正版嗎(鏡像win10是正版win10嗎)
前沿拓展： 鏡像的win10是正版嗎 原版鏡像沒有GHOS代伯腳T的安裝方式，沒有經(jīng)過優(yōu)化，安裝方式為最原始的，一步一步的**作，安裝完成后，系統(tǒng)不會自動激活，系統(tǒng)沒有任何電腦況負…