VBA批量合并、取消合并Excel表单元格

Excel工作表数据快完成时，工作表模版修改了，VBA快速修改之合并、取消合并单元格。

1、指定工作表单元格的合并、取消合并。只需要最简单的代码Selection.Merge（合并单元格）、Selection.UnMerge （取消合并单元格）

Function MergeA()    '指定工作表合并单元格

    WorkSheets("Sheet1").Range("C12:C13").Select

    With Selection

        .HorizontalAlignment = xlCenter        '水平居中

        .VerticalAlignment = xlCenter        '垂直居中

        .ShrinkToFit = True     '合并后文字缩小到合适大小

    End With

    Selection.Merge  '合并单元格

    Selection.UnMerge  '取消合并单元格

End Function

2、同一工作薄中所有工作表指定单元格的合并、取消合并。只需遍历所有工作表，再处理合并、取消合并单元格。

Function MergeB()    '同一工作薄所有工作表合并单元格