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

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

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