【求助】如何确定word表格的合并单元格的合并行数和列数？

15221995200

①利用选区的错误累积数获得合并行列数；
②利用SelectRow和SelectColumn方法获得合并行列数
两个思路全都失败了，原因是word表格合并后行索引和列索引的逻辑不一样：
行是绝对的索引，合并行并不影响每行的索引号，索引不再连续
列是相对于前一列的，如图原本第3列，合并以后变成了第2列，列索引一定是连续的

方案②因为上面的合并单元格，造成红色区域错误，那到底怎么样才能正确获得每个合并单元格到底合并了多少列？？？？？

代码如下，求指教！


Sub 测试()
    Dim CR As cell
    For Each CR In ActiveDocument.Tables(1).Range.Cells
        CR.Range.Text = 单元格信息(CR)
    Next
End Sub
Function 单元格信息(myCell As cell)
    Dim results_arr(1 To 3) As Variant
    Dim 有合并行 As Boolean: 有合并行 = False
    Dim 有合并列 As Boolean: 有合并列 = False
    myCell.Select ' 判断是否存在合并行
    Selection.SelectRow
    合并行数 = Selection.Rows.Count
    If 合并行数 > 1 Then
        有合并行 = True
    End If
   
    myCell.Select ' 判断是否存在合并列
    Selection.SelectColumn
    合并列数 = Selection.Columns.Count
    If 合并列数 > 1 Then
        有合并列 = True
    End If
    results_arr(1) = 有合并行 Or 有合并列
    results_arr(2) = 合并行数
    results_arr(3) = 合并列数
    单元格信息 = "(" & myCell.RowIndex & "-" & myCell.ColumnIndex & ")：" & VBA.Join(results_arr, ";")
End Function

batmanbbs

计算合并的行数可以选中单元格再选行，计算合并的列数不要选中单元格，直接选中列。
PS：楼主不要纠结这些，因为你的表格还是很规范的，遇到不规范的表格怎么计算都是不准确的。

15221995200

batmanbbs 发表于 2023-11-14 00:15
计算合并的行数可以选中单元格再选行，计算合并的列数不要选中单元格，直接选中列。
PS：楼主不要纠结这些 ...

怎么单独选中列啊，直接.Columns(n).select，有跨列合并的时候就报错呀

batmanbbs

15221995200 发表于 2023-11-17 09:09
怎么单独选中列啊，直接.Columns(n).select，有跨列合并的时候就报错呀

光标定位到单元格中，但不要选中单元格
判断合并列的那句 mycell.select 改为：
activedocument.range(mycell.range.start,mycell.range.start).Select

过客fppt

https://club.excelhome.net/threa ... tml?_dsign=a9563e02

试一下这个


Sub 找出拆分的单元格且合并()
    Dim tbl As Table
    Dim cell As cell
    Dim i, j, errorCount, 开始错误的行号, zonghang, zonglie As Integer
    Dim a As Double
   
    Set tbl = ActiveDocument.Tables(1)
   
    zonghang = ActiveDocument.Tables(1).Rows.count
    zonglie = ActiveDocument.Tables(1).Rows.count
    For j = 1 To zonglie
        On Error Resume Next ' 启用错误处理

        For i = 1 To zonghang
            tbl.cell(i, j).Select

            If Err.Number <> 0 Then
                If errorCount = 0 Then
                    开始错误的行号 = i - 1
                End If
                ' 错误计数器 +1
                errorCount = errorCount + 1
                ' 清除错误
                Err.Clear
            End If
        Next i

        On Error GoTo 0 ' 禁用错误处理

        If 开始错误的行号 <> 0 Then
            MsgBox ("合并的单元格在：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,而且合并了" & errorCount + 1 & "行")
            tbl.cell(开始错误的行号, j).Select

            Call 拆分单元格(errorCount + 1, 1)

'            MsgBox ("已经合并：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,合并了" & errorCount + 1 & "行")
        Else
'            MsgBox ("在第" & j & "列中未找到合并的单元格")
        End If
        errorCount = 0
    Next j

End Sub
Function 拆分单元格(Rows, Coluns)
    Selection.Cells.Split NumRows:=Rows, NumColumns:=Coluns, MergeBeforeSplit:=False
End Function

fma_2004

过客fppt 发表于 2023-11-18 17:43
https://club.excelhome.net/thread-1669497-1-1.html?_dsign=a9563e02

试一下这个

这个代码存在横向列合并的情况就不行了。