如何用 VBA 判断表格是不规则的？

413191246se

各位老师、朋友们：过去我也写了一个宏，用来判断表格是不规则的。思路是循环遍历所有单元格，判断其长度和高度是否相同。但感觉较为繁杂，遂求本坛朋友们援手赐教！多谢！

batmanbbs

老师，你这个不规则指的是什么？有合并单元格，还是单元格的高和宽不一致？
PS：遍历所有单元格判断长度和高度是否相同只能确定单元格的大小是相同的，并不能说明表格是规则的。必须确保每行单元格的数量相同才行。

413191246se

有合并单元格，还是单元格的高和宽不一致？

batmanbbs 老师：你提的这两种情况都包括，都是不规则的。规则表格就像插入 2X3 表格一样。

413191246se

* 我对规则表格的表述是有问题，大家请看，下面的表格就是规则表格：

batmanbbs

试试看

413191246se

batmanbbs 老师，多谢！——感觉代码太过高深，暂时理解不了，待我消化一段时间。。。

413191246se

batmanbbs 老师：你 5 楼的代码，能否改成 Sub 子过程 ？这个函数 Function 我不会用啊！
假设我光标在一个表格中，怎么判断这个表格是规则表格？还是不规则表格？

batmanbbs

413191246se

* 谢谢 batmanbbs 老师！好用！我又发挥了一下，让其循环检查所有表格。
* 下面的代码是 batmanbbs 老师编写的《规则表格判断》宏！复制后请将代码粘贴到空白文档，再全选，剪切，然后粘贴到 VBE 中，以防乱码！

1. Sub TableCheck()
   
2. '不规则表格，设置为红色！规则表格，设置为蓝色！（RuleTable 意思是：规则表格）
   
3.     Dim t As Table
   
4.     For Each t In ActiveDocument.Tables
   
5.         With t
   
6.             .Range.Font.ColorIndex = wdBlue
   
7.             If RuleTable(t) <> 0 Then .Range.Font.ColorIndex = wdRed
   
8.         End With
   
9.     Next
   
10. End Sub
    
11. 
    
12. Sub test_rule()
    
13. '规则表格
    
14.     If RuleTable(Selection.Tables(1)) <> 0 Then
    
15.         MsgBox "not-rule-table!"
    
16.     End If
    
17. End Sub
    
18. 
    
19. Function RuleTable(ByVal myTab As Table) As Byte
    
20. 'Code by batmanbbs
    
21. '0:规范表格  1:跨行合并  2：跨列合并  3：跨行+跨列  4：不规范表格
    
22.     On Error Resume Next
    
23.     Dim test&
    
24.     With myTab
    
25.         test = .Rows(1).Index
    
26.         If Err.Number = 5991 Then RuleTable = 1: Err.Clear
    
27.         test = .Columns(1).Index
    
28.         If Err.Number = 5992 Then RuleTable = RuleTable + 2
    
29.         If RuleTable <> 0 Then Exit Function
    
30.         If .Rows.Count * .Columns.Count <> .Range.Cells.Count Then
    
31.             RuleTable = 4: Exit Function
    
32.         End If
    
33.     End With
    
34.     On Error GoTo 0
    
35. End Function

复制代码

zhanglei1371

其实简单点，判断行*列=总格子数就可以了吧，不等就是不规则