1、如图，当我们在A列输入一些部门的时候，因为很多是重复的，如何用VBA一次性将相同连续的区域进行合并呢
2、首先我们在键盘上，找到alt+F11键，同时点击后，进入了一个VBA界面，在这里我们可以用代码的方式，控制前面的单元格
3、在VBA界面，我们点击插入，在弹出的下拉选项中，我们选择模块，插入模块后，左侧就出现了模块1，我们就可以在窗口输入代码了
4、如下图，在窗口输入我们需要的合并单元格的代码，注意绿色部分是注释，可以不输入的，主要思路就是先定位到最后一个单元格，如何和上面一个相同，就合并起来
5、当代码输入完成后我们点击确定，关闭VBA窗口，而后在工作表界面我们点击开发工具，插入，找到插入按钮选项
6、点击插入按钮，而后我们在工作表界面上拖动，就是弹出一个按钮连接的对话框，我们选择刚才输入的模块1，而后确定
7、确定后，工作表的界面上，就出现了一个按钮，这个就是用来控制合并单元格的，在我们需要合并的是，按下按钮即可
8、下面我们进行测试，当我们按下按钮后，结果如下图所示，正是我们想要的
