vba之MergeArea与MergeCells

一、Range.MergeArea 属性，返回包含指定单元格的合并单元格区域，为只读属性。注意：Range 只能为单个单元格

Sub about_MergeArea()    
    Dim merge_rng As Range
    
    [a1:a3].Merge  '合并 [a1:a3] 单元格
    Set merge_rng = Range("a2").MergeArea  '返回包含 [a2] 的合并单元格区域
    merge_rng.Select
    
End Sub

二、Range.MergeCells 属性，如果指定区域内包含合并单元格，则返回True&#