當我們在Excel中需要將某些單元格合并成一個大單元格時，Excel默認只會保留最左上角單元格的內(nèi)容。但有時候我們需要保留所有被合并單元格的內(nèi)容，這時該怎么辦呢？下面我們來介紹一種通過VBA宏實現(xiàn)單元

當我們在Excel中需要將某些單元格合并成一個大單元格時，Excel默認只會保留最左上角單元格的內(nèi)容。但有時候我們需要保留所有被合并單元格的內(nèi)容，這時該怎么辦呢？下面我們來介紹一種通過VBA宏實現(xiàn)單元格合并時內(nèi)容連接或分行的方法。

1. 打開Excel文件，按下快捷鍵“ALT F11”打開VBA編輯界面，然后在菜單欄中依次點擊【插入】->【模塊（M）】，添加一個新模塊。

2. 在代碼框中復(fù)制以下代碼：

Sub 單元格合并內(nèi)容連接或分行()

Dim m As Range, m1 As Range, Response, i As Long, mb

If 1 Then Exit Sub

Set m1 Selection.Cells(1)

Response MsgBox("是否要換行？", vbYesNo)

If Response vbYes Then

i 0

For Each m In Selection

If <> "" Then

i i 1

If i 1 Then

mb

Else

mb mb vbLf

End If

End If

Next m

Else

mb ""

For Each m In Selection

If <> "" Then

mb mb

End If

Next m

End If

Application.DisplayAlerts False

Application.DisplayAlerts True

mb

End Sub

3. 回到工作表窗口，先選取需要合并的單元格區(qū)域，再運行剛才創(chuàng)建的【單元格合并內(nèi)容連接或分行】宏（在菜單欄中依次點擊【視圖】->【宏】->【查看宏(V)】，選擇該宏名），宏運行會提示你選擇“是否要換行？”，根據(jù)需要進行選擇。

4. 運行過程如下圖所示：

5. 如果覺得這篇文章對您有幫助，請點擊下方的“投票點贊”或者“收藏”支持作者！如果您還有其他疑問，歡迎在下方評論區(qū)留言，作者會盡快回復(fù)。