要实现批量合并列单元格

因自己才疏学浅，一个基础问题不太明白，请大神指点困惑，谢谢！
要实现批量合并列单元格 右侧为最后效果图
请问有没有简单的方法批量设置 或者是VBA怎么写？
请大神赐教，谢谢！