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

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

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

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ū)域，再運(yùn)行剛才創(chuàng)建的【單元格合并內(nèi)容連接或分行】宏（在菜單欄中依次點(diǎn)擊【視圖】->【宏】->【查看宏(V)】，選擇該宏名），宏運(yùn)行會(huì)提示你選擇“是否要換行？”，根據(jù)需要進(jìn)行選擇。

4. 運(yùn)行過程如下圖所示：

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