VBA学习笔记之合并单元格

Range.Merge

注意合并区域左上单元格

Sub 太复杂不过也行()
num = Application.CountA([a:a])
For i = 2 To num
    If Cells(i, 1) = Cells(i + 1, 1) Then
    n = n + 1
    Else
    Range(Cells(i - n, 1), Cells(i, 1)).Merge
    n = 0
    End If
    Next
End Sub

Sub 改进版()
Application.DisplayAlerts = False'去除合并时系统的提醒
num = Application.CountA([a:a])
Dim rng As Range
For i = num To 2 Step -1
'为什么不用正序？用了后就会发现正序合并不完全，因为这里的思路是依次合并
'而合并后的区域真正有Value的是该区域最左上的单元格位置
'因此正序情况下只会合并两个单元格
'第三个单元格因为判断第二个单元格Value为空而不进行合并
'同理接下来的也就不能合并了
    Set rng = Cells(i, "i")
    If rng = rng.Offset(-1) Then
    rng.Offset(-1).Resize(2).Merge
    End If
    Next
    Application.DisplayAlerts = True'开启合并时系统的提醒
End Sub

取消合并单元格代码：Range.MergeArea

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