1、首先，打开或者新建一个还有数据的Excel表格，如下图所示。
2、然后按下Alt+F11组合键，打开VBA编辑界面，点击左侧相应的工作表，出现右侧空白的代码编辑区，如下图所示。
3、编写代码如下图所示：
Sub 鱼木混猪()
Range("B1:D1").Merge'将B1:D1合并单元格
For i = 2 To 10
Range("B" & i & ":D" & i).Merge'利用循环依次将第2行后的B列到D列合并单元格
Next
End Sub
代码的利用循环实现批量合并单元格。
4、将光标放在代码中间，点击“运行子程序”，如下图所示。
5、关闭VBA界面，返回Excel，就可以看到A1:B10内的单元格都添加了实线边框，如下图所示。
1、1.打开Excel数据表；
2.按下Alt+F11；
3.输入代码，主要代码为：
Range("B1:D1").Merge
4.点击“运行子程序”；
5.就将B1:D1及后面的单元格进行了合并单元格。
