word中不规则的表格，如何使用vba进行遍历？

小盆友靠自己 · 发表于 2023-2-15 00:42

如下图所示，当word表格中存在着合并单元格的时候（纵向和横向都存在合并单元格），这种情况下如何进行表格所有单元格的遍历？

3190496160 · 发表于 2023-2-15 08:50

关键是你想干嘛，或者说，最终目的是什么

小盆友靠自己 · 发表于 2023-2-15 10:19

3190496160 发表于 2023-2-15 08:50
关键是你想干嘛，或者说，最终目的是什么

您好，感谢回复！我现在的代码是
Sub AddTh()
Dim MyTable As Table
Dim MyRow As Row
Dim MyCell As Cell
If Not Selection.Information(wdWithInTable) Then MsgBox "请在表格内执行此操作": Exit Sub
Set MyTable = Selection.Tables(1)
For Each MyRow In MyTable.Rows ' 外循环遍历行
For Each MyCell In MyRow.Cells
'在此进行一些判断等
Next MyCell
Next MyRow
End Sub
执行的过程中弹出来“无法访问此集合中单独的行，因为表格有纵向合并的单元格”
想麻烦您修改下代码

snow653124 · 发表于 2023-2-15 10:42

为什么不试试 for 循环呢
微信截图_20230215104139.png

zldccmx · 发表于 2023-2-15 13:30

https://club.excelhome.net/forum ... 22&pid=11183200

lss001 · 发表于 2023-2-15 17:05

本帖最后由 lss001 于 2023-2-15 17:33 编辑

参考附件文件代码

123-1.rar (20.95 KB, 下载次数: 10)

守候_CJ · 发表于 2023-2-17 13:19

Word VBA：用【For Each】方式遍历包含合并单元格的表格的单元格

Sub 遍历合并单元格()
Dim ta As Table
Dim cel As Cell
Set ta = ActiveDocument.Tables(1)
For Each cel In ta.Range.Cells
Debug.Print cel.RowIndex, cel.ColumnIndex
Next
Set ta = Nothing
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] word中不规则的表格，如何使用vba进行遍历？