Excel表格怎樣把已合併的單元格拆分開(Excel表格怎樣把合併單元格里的內容拆分開)
大家好,今天跟大家分享如何利用VBA程式碼快速將Excel工作表中的合併單元格批量進行拆分。
應用案例
將下面圖1中C列“組別”列的所有合併單元格進行批量拆分,目標效果見圖2。
圖1
圖2
操作步驟
1.開啟工作表,單擊視窗上方“開發工具”選項卡“程式碼”功能組中的“Visual Basic”按鈕。
2. 在開啟的VBA編輯器視窗左側,找到“Microsoft Excel物件”列表中的“Sheet16(合併單元格批量拆分)”,也就是我們要進行處理的工作表,雙擊滑鼠。
3.在彈出的程式碼編輯視窗中輸入如下程式碼:
Private Sub kbiji()
Dim i As Range
For Each i In ActiveSheet.UsedRange
If i.Address <> i.MergeArea.Address And i.Address = i.MergeArea.Item(1).Address Then
i.MergeArea.Select
i.MergeArea.UnMerge
Selection.FillDown
End If
Next i
End Sub
4.單擊VBA編輯器視窗上方的“執行子過程/使用者窗體”按鈕。
5.返回工作表,可見C列“組別”列中所有合併單元格已經全部拆分為了獨立的單元格。