1.需求：合并單元格內容

2.代碼：

Sub 無損合并單元格()Dim outputText As StringConst delim = ""On Error Resume NextFor Each cell In SelectionoutputText = outputText & cell.Value & delimNext cellWith Selection.Clear.Cells(1).Value = outputText.Merge.HorizontalAlignment = xlGeneral.VerticalAlignment = xlCenter.WrapText = TrueEnd WithEnd Sub

3.效果

總結

以上是生活随笔為你收集整理的13.Excel vba开发-合并单元格内容的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。