導讀大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進行拆分。應用案例將下面圖1中C列“組別”列的所有合并單元格進行批量拆分，目....

大家好，今天跟大家分享如何利用VBA代碼快速將Excel工作表中的合并單元格批量進行拆分。

應用案例

將下面圖1中C列“組別”列的所有合并單元格進行批量拆分，目標效果見圖2。

圖1

圖2

操作步驟

1.打開工作表，單擊窗口上方“開發工具”選項卡“代碼”功能組中的“Visual Basic”按鈕。

2. 在打開的VBA編輯器窗口左側，找到“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列“組別”列中所有合并單元格已經全部拆分為了獨立的單元格。

#職場技能##辦公技能#