答：可以使用VBA 来完成。参照我下方的图，代码从A2开始。

按ALT+F11组合键，打开VB窗口，执行”插入”-“模块”，复制下面代码进去，按F5运行程序即得到结果。

Sub Demo()
    Dim Rng As Range
    Dim TempStr As String
    Dim Cell As Range
    Application.DisplayAlerts = False
    Set Rng = Range("A2")
    Do Until IsEmpty(Rng)
        With Rng
            If .MergeCells Then
                For Each Cell In .Offset(0, 1).Resize(.MergeArea.Rows.Count, 1)
                    TempStr = TempStr & Cell & vbCrLf
                Next
                .Offset(0, 1).Resize(.MergeArea.Rows.Count, 1).Merge
                .Offset(0, 1) = Left(TempStr, Len(TempStr) - 1)
            End If
        End With
        TempStr = ""
    Set Rng = Rng.Offset(1, 0)
    Loop
    Application.DisplayAlerts = True
    MsgBox "合并完成"
End Sub

以下程序运行前后截图。