excel|EXCEL合并單元格并保留單元格內的值

excel|EXCEL合并單元格并保留單元格內的值

文章圖片

excel|EXCEL合并單元格并保留單元格內的值

文章圖片

excel|EXCEL合并單元格并保留單元格內的值

文章圖片



Excel在進行單元格合并時會提示這樣一句話“合并單元格時 , 僅保留左上角的值 , 而放棄其他值” 。

這句話是什么意思呢?看看下圖你就明白了 。

可以看到 , 取消合并單元格后 , 僅保留最上方的值 , 其余單元格的值已經清除 。
利用這種方式進行單元格合并后 , 如果需要利用公式進行計算 , 那么會帶來一定程度的不便 。 比如 , 你不能向下拖拽公式 。

那么我們該如何實現既合并單元格 , 又保留單元格內的值呢?

通過測試 , 我發現利用格式黏貼 , 可以實現上述效果 。
首先在空白區域制作一個合并單元格樣式的區域 , 然后將空白區域復制黏貼格式到需要合并并保留單元格內值的區域 。

當然 , 利用代碼將需要重復性的操作簡化為一鍵生成 , 是提高工作效率的最佳選擇 , 比如上面的操作 , 也可以這樣實現 。


Sub 格式合并單元格()
Dim n As Integer i As Integer
Application.ScreenUpdating = False
Columns(\"A:A\").EntireColumn.Insert
r = Selection.Row
c = Selection.Column + 1
【excel|EXCEL合并單元格并保留單元格內的值】For Each rg In Selection
i = rg.Row
If rg.Offset(0 1) = rg.Offset(1 1) Then
Cells(i 1).Resize(2 1).Merge
End If
n = n + 1
Next
Range(Cells(r 1) Cells(r + n - 1 1)).Copy '復制單元格
Cells(r c).PasteSpecial Paste:=xlPasteFormats '粘體格式
Columns(\"A:A\").EntireColumn.Delete
Application.ScreenUpdating = True
End Sub

    相關經驗推薦