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