因为Excel默认的操作是当合并多个有内容的单元格时，只能保存左上角单元格的数据，会弹出下面的提示对话框：

过程代码

' 先选定需要合并的区域；

Sub MergerSelectedCells()

    Application.DisplayAlerts = False

    Dim allstr As String

    Dim Str As Object

    For Each Str In Selection

        If Str.Value <> "" Then

            allstr = allstr & " " & Str.Value

            allstr = Application.WorksheetFunction.Trim(allstr)

        End If

    Next Str

    With Selection

        .MergeCells = True

        .Value = allstr

        .WrapText = True

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlTop

    End With

    Application.DisplayAlerts = True

End Sub

代码分析

用一个For Each循环将选择区域Selection对象的每一个单元格的值逐一连接到一个字符串；

对选择区域应用合并属性(Selection.MergeCells)，并将连接好的字符串赋值给它。

执行效果