VBA：单元格合并时内容也进行合并

一、功能

选中单元格，在进行合并时，单元格的内容也进行合并，而不只是保留左上角单元格。

二、代码示例

Sub hebing()
Dim s As String, c As Range
    If TypeName(Selection) = "Range" Then
        For Each c In Selection
        s = s & c.Value
        Next
      Application.DisplayAlerts = False
        Selection.Merge
        Selection.Value = s
      Application.DisplayAlerts = True
    End If
End Sub

三、特别说明

Selection.Merge
这个语句是要合并单元格，如果注释掉会有另外一个效果；

PS：初步学习VBA，该例子是《VBA实战技巧精粹》上的，但是现在有个疑问，如果是很多行需要合并，怎么操作？现在还不会，等琢磨出来了再补充。