一个有纵向合并的单元格也有横向向合并的单元格的word表格，用VB或VBA怎么获取它每一行的高度？

Question

For i = 1 To Table.rows.Count
Debug.Print Table.rows(i).Height
Next
出错：无法访问此集合中单独的行，因为表格有纵向合并的单元格

Answer 1

取没有合并单元格的那一列，比如说是列2，如下代码：（我没用你的table变量：table）
For i = 1 To Me.Tables.Item(1).rows.Count
Debug.Print Me.Tables.Item(1).Cell(i, 2).Height
Next i追问

但是碰上只有一列的行，那Cell(i, 2)这样的代码会出错

追答

Cell(i, 2)是指第i行、第二列的单元格，只有一列那铁定是会错
我的意思是取没有合并单元格的那一列，如果你的表格没有这种列，那你的问题就无法完成。

Answer 2

做表建议你用EXCEL而不用WORD