word中运用VBA识别表格中已经合并的单元格并且进行拆分

过客fppt

1. Sub 找出拆分的单元格且合并()
   
2.     Dim tbl As Table
   
3.     Dim cell As cell
   
4.     Dim i, j, errorCount, 开始错误的行号, zonghang, zonglie As Integer
   
5.     Dim a As Double
   
6.    
   
7.     Set tbl = ActiveDocument.Tables(1)
   
8.    
   
9.     zonghang = ActiveDocument.Tables(1).Rows.count
   
10.     zonglie = ActiveDocument.Tables(1).Rows.count
    
11.     For j = 1 To zonglie
    
12.         On Error Resume Next ' 启用错误处理
    
13. 
    
14.         For i = 1 To zonghang
    
15.             tbl.cell(i, j).Select
    
16. 
    
17.             If Err.Number <> 0 Then
    
18.                 If errorCount = 0 Then
    
19.                     开始错误的行号 = i - 1
    
20.                 End If
    
21.                 ' 错误计数器 +1
    
22.                 errorCount = errorCount + 1
    
23.                 ' 清除错误
    
24.                 Err.Clear
    
25.             End If
    
26.         Next i
    
27. 
    
28.         On Error GoTo 0 ' 禁用错误处理
    
29. 
    
30.         If 开始错误的行号 <> 0 Then
    
31.             MsgBox ("合并的单元格在：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,而且合并了" & errorCount + 1 & "行")
    
32.             tbl.cell(开始错误的行号, j).Select
    
33. 
    
34.             Call 拆分单元格(errorCount + 1, 1)
    
35. 
    
36. '            MsgBox ("已经合并：第1个表格的第" & 开始错误的行号 & "行第" & j & "列,合并了" & errorCount + 1 & "行")
    
37.         Else
    
38. '            MsgBox ("在第" & j & "列中未找到合并的单元格")
    
39.         End If
    
40.         errorCount = 0
    
41.     Next j
    
42. 
    
43. End Sub
    
44. Function 拆分单元格(Rows, Coluns)
    
45.     Selection.Cells.Split NumRows:=Rows, NumColumns:=Coluns, MergeBeforeSplit:=False
    
46. End Function

复制代码

3190496160

谢谢分享，收藏备用

batmanbbs

谢谢共享代码，不过该程序起名有问题。这段代码应该只能识别上下行合并的单元格，无法识别跨列合并的单元格。

过客fppt

batmanbbs 发表于 2023-8-6 12:09
谢谢共享代码，不过该程序起名有问题。这段代码应该只能识别上下行合并的单元格，无法识别跨列合并的单元格 ...

是的，只能从上到下检测合并单元格。你可以根据这个思路进行修改，从左到右开始检测单元格，这样子就可以检测到跨列合并的格子了

batmanbbs

过客fppt 发表于 2023-8-6 14:26
是的，只能从上到下检测合并单元格。你可以根据这个思路进行修改，从左到右开始检测单元格，这样子就可以 ...

其实，可以不用通过获取错误就可以识别合并单元格，还原行和列都可以，代码也比较简洁

过客fppt

batmanbbs 发表于 2023-8-6 17:13
其实，可以不用通过获取错误就可以识别合并单元格，还原行和列都可以，代码也比较简洁

有请指教一下，谢谢了

413191246se

同求！batmanbbs 老师：如何用VBA判断表格是不规则的？

batmanbbs

413191246se 发表于 2023-8-7 11:32
同求！batmanbbs 老师：如何用VBA判断表格是不规则的？

老师，你不是安装了我的QUICKER的动作了吗？里面有一个给表格编号的代码里面有类似的例子。另外，本周我会更新动作，有一个专门处理合并单元格的功能。

过客fppt

batmanbbs 发表于 2023-8-7 12:23
老师，你不是安装了我的QUICKER的动作了吗？里面有一个给表格编号的代码里面有类似的例子。另外，本周我 ...

batmanbbs老师，太厉害了，这个插件也是用VB开发的吗，我也想了解一些Word插件的问题

batmanbbs

413191246se 发表于 2023-8-7 11:32
同求！batmanbbs 老师：如何用VBA判断表格是不规则的？

如果光是识别表格是否有合并单元格比较简单，获取表格的行数和列数，相乘后等于表格的单元格数量就是规范表格，小于就是有合并单元格的不规范表格。