合并单元格实例VBA

nnsea

Option Explicit
'Range.Merge 方法
'由指定的 Range 对象创建合并单元格。


Sub 合并单元格()
    Selection.Merge
End Sub


Sub 合并单元格实例()
Dim er%, rng%, rg As Range
Application.DisplayAlerts = False
er = Application.CountA([a:a])
For rng = er To 2 Step -1
    Set rg = Range("a" & rng)
    If rg = rg.Offset(-1) Then rg.Offset(-1).Resize(2).Merge
Next
Application.DisplayAlerts = True
End Sub

nnsea

'-----------------------------------------------------------------------
'Range.MergeArea 属性
'返回一个 Range 对象，该对象代表包含指定单元格的合并区域。

'Range.UnMerge 方法
'将合并区域分解为独立的单元格
'--------------------------------------------------------------------------
Sub test()
a = Range("a1").MergeArea.Count
[a1].UnMerge
End Sub


Sub 解除合并单元格后保持原来的数据()
Dim b%, rng As Range
    For Each rng In Selection
        b = rng.MergeArea.Count
        rng.UnMerge
        rng.Resize(b) = rng
    Next
End Sub