第049篇：VBA之合并单元格、取消合并单元格并保留原来的数据

Range.Merge 方法：由指定的Range对象创建合并单元格

（一）对选择的区域进行合并

Sub 合并单元格()

       Selection.Merge              '对选中的单元格区域执行此段代码，进行合并，仅保留左上角值

End Sub

**********************

（二）对相同相邻单元格进行合并

原料如下：

部门	职工	职级
1部门	张小跳	5
1部门	李大刀	7
1部门	王老虎	8
1部门	陈麻子	6
2部门	董小花	9
2部门	马大海	10
2部门	胡斑马	8
2部门