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

2、使用alt+f11打开vbe编辑器,并在编辑器中新建一个模块。如图所示:

3、在模块中输入以下代码:
sub rerge()
ifrange(“a1”).mergecells=true then
msgbox "包含合并单元格”
else
msgbox "不包含合并单元格"
end if
end sub

4、运行这段代码,判断的是a1单元格的属性,以本工作表为例,弹出的是不包含合并单元格信息框。如图所示:

时间:2026-02-13 17:19:15
1、打开一个工作样表作为例子。如图所示:

2、使用alt+f11打开vbe编辑器,并在编辑器中新建一个模块。如图所示:

3、在模块中输入以下代码:
sub rerge()
ifrange(“a1”).mergecells=true then
msgbox "包含合并单元格”
else
msgbox "不包含合并单元格"
end if
end sub

4、运行这段代码,判断的是a1单元格的属性,以本工作表为例,弹出的是不包含合并单元格信息框。如图所示:
