如何运用VBA判断插入点所在表格是否存在合并单元格呢？

作者：绿色风分类：时间：2022-08-18 浏览：175

楼主
0Mouse

Q：如何运用VBA判断插入点所在表格是否存在合并单元格呢？
示例截图：

A：利用表格中存在合并单元格时使用Rows(行号)和Columns(列号)会报错的特性来间接判断表格中是否存在合并单元格，代码如下：

Sub 判断插入点所在表格是否存在合并单元格()
If Selection.Information(wdWithInTable) Then '判断插入点是否在表格内
Dim irow As Row, icol As Column '分别定义一个行类型和列类型的变量
On Error Resume Next '设置出错继续往下运行代码
Set irow = Selection.Tables(1).Rows(1) '令irow变量指代插入点所在表格的第1行
Set icol = Selection.Tables(1).Columns(1) '令icol变量指代插入点所在表格的第1列
If Err <> 0 Then
Err.Clear '将错误值归0
MsgBox "插入点所在表格存在合并单元格。", vbOKOnly, "提示"
Else
MsgBox "插入点所在表格没有合并单元格。", vbOKOnly, "提示"
End If
Else
MsgBox "插入点不在表格内。", vbOKOnly, "提示"
End If
End Sub

附件：

判断插入点所在表格是否存在合并单元格.rar

2楼
xmyjk

谢谢分享。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表