1、打开一个工作样表作为例子。如图所示:

3、在模块中输入以下代码:sub rerge()ifrange(“a1”).merge罕铞泱殳cells=true thenmsgbox "包含合并单元格”elsemsgbox "不包含合并单元格"end ifend sub

1、打开一个工作样表作为例子。如图所示:
3、在模块中输入以下代码:sub rerge()ifrange(“a1”).merge罕铞泱殳cells=true thenmsgbox "包含合并单元格”elsemsgbox "不包含合并单元格"end ifend sub