Word VBA：判断一个单元格是否为合并单元格

守候_CJ

Word VBA：判断一个单元格是否为合并单元格

一、代码

1. Function 是合并单元格(myCell As Cell) As String
   
2.     Dim results(1 To 3) As Variant
   
3.     Dim tb As Table
   
4.     Dim maxRow As Long
   
5.     Dim maxCol As Long
   
6.     Dim nextCell As Cell
   
7.     Dim i As Long
   
8.     Dim 有合并行 As Boolean: 有合并行 = False
   
9.     Dim 合并行数 As Long: 合并行数 = 0
   
10.     Dim 有合并列 As Boolean: 有合列行 = False
    
11.     Dim 合并列数 As Long: 合并列数 = 0
    
12.    
    
13.     Set tb = myCell.Range.Tables(1)
    
14.     maxRow = tb.Rows.count
    
15.     maxCol = tb.Columns.count
    
16.    
    
17.     On Error Resume Next
    
18.     For i = myCell.RowIndex + 1 To maxRow
    
19.         Set nextCell = tb.Cell(i, myCell.ColumnIndex)
    
20.         Do While Err.Number = 5941
    
21.             If i > maxRow Then
    
22.                 Exit Do
    
23.             End If
    
24.             Err.Clear
    
25.             i = i + 1
    
26.             Set nextCell = tb.Cell(i, myCell.ColumnIndex)
    
27.         Loop
    
28.         
    
29.         合并行数 = i - myCell.RowIndex
    
30.         If 合并行数 > 1 Then
    
31.             有合并行 = True
    
32.         End If
    
33.         Exit For
    
34.     Next
    
35.    
    
36.     For i = myCell.ColumnIndex + 1 To maxCol
    
37.         Set nextCell = tb.Cell(myCell.RowIndex, i)
    
38.         Do While Err.Number = 5941
    
39.             If i > maxCol Then
    
40.                 Exit Do
    
41.             End If
    
42.             Err.Clear
    
43.             i = i + 1
    
44.             Set nextCell = tb.Cell(myCell.RowIndex, i)
    
45.         Loop
    
46.         
    
47.         合并列数 = i - myCell.ColumnIndex
    
48.         If 合并列数 > 1 Then
    
49.             有合并列 = True
    
50.         End If
    
51.         Exit For
    
52.     Next
    
53.     On Error GoTo 0
    
54.    
    
55.     results(1) = 有合并行 Or 有合并列
    
56.     results(2) = 合并行数
    
57.     results(3) = 合并列数
    
58.    
    
59.     是合并单元格 = VBA.Join(results, ";")
    
60. End Function

复制代码

二、说明

函数返回结果格式为：

True;2;1

以分号（；）为标志，分为3部分：

第一部分，表明是否为合并单元格（True是，False否）；

第二部分，合并行的数值，比如2表示此单元格合并了2行；

第三部分，合并列的数值，比如1表示此单元格合并了1列（1列即没有合并列）。

snow653124

高明，我还只是遍历单元格，判断单元格边框来判断

守候_CJ

snow653124 发表于 2023-2-23 15:40
高明，我还只是遍历单元格，判断单元格边框来判断

同一问题
方法各异

dongdonggege

Excel不会，使用方法是否是：

1. Sub test()
   
2.     是合并单元格 b2 '假如b2是合并单元格
   
3. End Sub

复制代码

另带上你的函数，是吗？

守候_CJ

dongdonggege 发表于 2023-3-12 19:40
Excel不会，使用方法是否是：

另带上你的函数，是吗？

是 通过函数返回值看

dongdonggege

守候_CJ 发表于 2023-3-12 19:42
是 通过函数返回值看

但是，我这样用，提示“用户类型未定义”

dongdonggege

守候_CJ 发表于 2023-3-12 19:42
是 通过函数返回值看

为什么这样不行？

守候_CJ

dongdonggege 发表于 2023-3-12 19:46
为什么这样不行？

你这是Excel文件，在这里面调用，需要前期绑定Word库，或者改写一下函数。

wdpfox

老师，如何使用？使用格式是怎样的？

守候_CJ

wdpfox 发表于 2023-3-28 13:16
老师，如何使用？使用格式是怎样的？

1. Sub 测试
   
2.     Dim s as String
   
3.     Dim myCell as Cell
   
4.     set myCell = Activedocument.Tables(1).Range.Cells(1)
   
5.     s = 是合并单元格(myCell)
   
6. 
   
7.     set myCell = Nothing
   
8.     Debug.Print s
   
9. End Sub

复制代码