关于word表格中合并单元格的判断

注册小号

可以用单元格引用返回的错误状态判断单元格合并形态
以表格第一列存在竖向合并单元格为例：
        '提前定义好：表格tbl、起始行初始值endRow、合并状态判断条件sta
        endRow = 1
        sta = 0
        Err.Number = 0
    On Error Resume Next
'以第2行起，第4行止，为判断区间，可以自己调整   
For i = 2 To 4
        '取目标单元格，若未合并，则正常，若合并则返回错误
        a = tbl.cell(i, 1)
        '如果发生错误，且该合并区间判断工作尚未截止，则留取行号暂时作为终止行
        If Err.Number <> 0 And sta = 0 Then
            endRow = i: Err.Number = 0
        Else
        '如果正常，则说明到了下一个单元格为止，则截止该合并区间判断
            sta = 1
        End If
Next i
'到此，endRow即为当前cell(1,1)的合并区间的终止行号

一、可利用此方法，判断列合并范围
二、对于批量判断，可以把目标区域内逐个单元格的引用是否错误结果，按数组形式返回，再由此进一步判断单元格合并区间的分布

注册小号

可以用单元格引用返回的错误状态判断单元格合并形态
以表格第一列存在竖向合并单元格为例：
        '提前定义好：表格tbl、起始行初始值endRow、合并状态判断条件sta
        endRow = 1
        sta = 0
        Err.Number = 0
    On Error Resume Next
'以第2行起，第4行止，为判断区间，可以自己调整   
For i = 2 To 4
        '取目标单元格，若未合并，则正常，若合并则返回错误
        a = tbl.cell(i, 1)
        '如果发生错误，且该合并区间判断工作尚未截止，则留取行号暂时作为终止行
        If Err.Number <> 0 And sta = 0 Then
            endRow = i: Err.Number = 0
        Else
        '如果正常，则说明到了下一个单元格为止，则截止该合并区间判断
            sta = 1
        End If
Next i
'到此，endRow即为当前cell(1,1)的合并区间的终止行号

一、可利用此方法，判断列合并范围
二、对于批量判断，可以把目标区域内逐个单元格的引用是否错误结果，按数组形式返回，再由此进一步判断单元格合并区间的分布