Excel中vba宏代码合并单元格的方法

Excel中vba宏代码合并单元格的方法

文章介绍excel中用vba宏代码来进行合并单元格的操作过程，以及用VBA宏代码语句判断单元格是否为合并单元格。

以前的文章介绍excel合并单元格多是基础操作，本文介绍关于excel合并单元格宏VBA代码方面的应用。

第一，用VBA宏判断excel合并单元格

在excel中按下ALT+F11，打开VBE编辑器，复制下面代码，按F5键运行，如果A1单元格为合并单元格，则弹出消息框提示此单元格为合并单元格，如果A1单元格没有合并，消息框提示此单元格不是合并单元格。

Sub excel合并单元格宏()If Range("A1").MergeCells ThenMsgBox "此单元格为合并单元格"ElseMsgBox "此单元格不是合并单元格"End IfEnd Sub

第二，用宏VBA代码来进行合并单元格

用上面介绍的方法，复制下面这段代码，运行的结果是：当我们在输入框输入一个行号，然后excel会自动合并A1到输入行号的单元格区域。比如我们输入8，excel则合并A1：A8单元格区域。

Sub合并单元格宏()Dim x1 As Longx1 = InputBox("请输入行号：")Sheets("sheet1").Range("a1:a" & x1).MergeEnd Sub

又比如下面这段宏VBA代码可以实现C6:F10单元格区域合并。

Sub 合并单元格()Range("C6:F10 ").MergeCells = TrueEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。