VBA合并单元格（Merge cells In VBA） 
━━━━━━━━━━━━━━━━━━━━━━━━━
'单元格合并
Sub h1()
    Range("g1:h3").Merge        '
End Sub

'合并区域的返回信息
Sub h2()
    Range("e1") = Range("b3").MergeArea.Address '返回单元格所在的合并单元格区域
End Sub

'判断是否含合并单元格
Sub h3()
    'MsgBox Range( "b2 ").MergeCells
    ' MsgBox Range( "A1:D7 ").MergeCells
    Range("e2") = IsNull(Range("a1:d7").MergeCells)
    Range("e3") = IsNull(Range("a9:d72").MergeCells)
End Sub

'综合示例：合并H列相同单元格
Sub h4()
    Dim x As Integer
    Dim rg As Range
    Set rg = Range("h1")
    Application.DisplayAlerts = False
    For x = 1 To 13
        If Range("h" & x + 1) = Range("h" & x) Then
            Set rg = Union(rg, Range("h" & x + 1))
        Else
            rg.Merge
            Set rg = Range("h" & x + 1)
        End If
    Next x
    Application.DisplayAlerts = True
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━