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

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

圖1

圖2

1.打開工作表，單擊窗口上方“開發(fā)工具”選項卡“代碼”功能組中的“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)全部拆分為了獨(dú)立的單元格。

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