Excel如何用VBA合并单元格

1、首先，打开或者新建一个还有数据的Excel表格，如下图所示。

3、编写代码如下图所示：Sub 鱼木混猪()Range("B1:D1").Merge'将B1:D1合并单元格For 足毂忍珩i = 2 To 10Range("B" & i & ":D" & i).Merge'利用循环依次将第2行后的B列到D列合并单元格NextEnd Sub代码的利用循环实现批量合并单元格。

5、关闭VBA界面，返回Excel，就可以看到A1:B10内的单元格都添加了实线边框，如下图所示。