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() '同一工作薄所有工作表合并单元格