vba判断excel选择区域是否有合并单元格

软件版本：Office2013

举例说明如下：

1.Alt+F11，输入如下代码：

2.返回Excel中，选择一个区域，按下Alt+F8，点击执行：

3.如果选择区域中有合并单元格，就会显示如下：

4.如没有，则显示如下：

Sub myMerge()

Set cel = Range("A1")

If cel.MergeCells Then MsgBox cel.Address(0, 0) &"为合并单元格，" &"共有" &cel.MergeArea.Rows.Count &"行" &cel.MergeArea.Columns.Count &"列组成"

End Sub

1、   打开一个Excel的文件，在表格中输入简单的表格，比如学生成绩表格。

2、  接着，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件。

3、   然后，在表格中绘制出按钮控件，并修改控件名称。

4、 接着，鼠标左键单击【查看代码】按钮。

5、  然后，在代码窗口中输入VBA语句，比如输入定义变量语句，并选择字符串类型。

6、   接着，在代码窗口中输入读取单元格的VBA语句。

7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出数据了，通过这样的 *** 作，就可以用VBA读取合并单元格数据了。

---