如何越过合并单元格的行，进行计算

jstvic

首行没有合并单元格的时候，可以执行，但是首行有了合并单元格就报错，不知道如何修改，请老师们指点

jstvic

有路过的大神帮忙指点吗

batmanbbs

jstvic

batmanbbs 发表于 2023-6-17 17:50

老师，我现在变成历表循环了，现在出现了新的难度 ，您有时间帮忙指点一下

batmanbbs

请一次把需求说清楚，而且也不明确，遇到减，以后所有都减？？？

jstvic

batmanbbs 发表于 2023-6-17 19:09
请一次把需求说清楚，而且也不明确，遇到减，以后所有都减？？？

就是会有个别特殊的表格某一项项目应该减去，  不全是合计，比如会出现1-1-1+1+1这样的情况  如果举个应用，这样别的表格我应该会照着修改

batmanbbs

行，说好了，以后你自己修改
忘考虑多表头了，修改了一下，以这个为准吧
PS：又优化了一下

直接发代码了，截图就删除了，代码见10楼

jstvic

batmanbbs 发表于 2023-6-17 20:01
行，说好了，以后你自己修改
忘考虑多表头了，修改了一下，以这个为准吧

老师为啥它还是显示黄色，减去的那一行已经包括在合计里面，应该减去两个1660.04，是不是少减了一个，按照代码的逻辑

batmanbbs

jstvic 发表于 2023-6-17 20:55
老师为啥它还是显示黄色，减去的那一行已经包括在合计里面，应该减去两个1660.04，是不是少减了一个， ...

应该没有写对代码，我把代码发了，不过需要审核，等待一下吧

batmanbbs

1. Sub 校验合计()
   
2. '
   
3. ' 遍历所有表格的所有单元格（支持合并单元格）
   
4. '
   
5.     Dim myTB As Table
   
6.     Dim Total(), Number#, Text$, i%, LastRow%
   
7.     Dim isAdd As Boolean
   
8.     For Each myTB In ActiveDocument.Tables
   
9.         With myTB.Range
   
10.             isAdd = True: LastRow = .Rows.Count
    
11.             ReDim Total(2 To .Columns.Count)
    
12.             For i = 1 To .Cells.Count
    
13.                 With .Cells(i)
    
14.                     If .RowIndex > 1 And .ColumnIndex > 1 Then        ' 跳过第一行和第一列
    
15.                         Text = Replace(Replace(Replace(.Range, ",", ""), " ", ""), Chr(13), "")
    
16.                         Text = Left(Text, Len(Text) - 1)
    
17.                         If IsNumeric(Text) Then
    
18.                             Number = Val(Text)
    
19.                             If .RowIndex = LastRow Then        ' 合计行比较总数
    
20.                                 If Round(Total(.ColumnIndex), 2) = Round(Number, 2) Then
    
21.                                     .Shading.BackgroundPatternColorIndex = wdAuto
    
22.                                 Else
    
23.                                     .Shading.BackgroundPatternColorIndex = wdYellow
    
24.                                 End If
    
25.                             Else
    
26.                                 Total(.ColumnIndex) = Total(.ColumnIndex) + IIf(isAdd, Number, -Number)
    
27.                             End If
    
28.                         End If
    
29.                     Else
    
30.                         If .ColumnIndex = 1 And .RowIndex <> 1 Then _
    
31.                             isAdd = Left(Replace(.Range, " ", ""), 2) <> "减："
    
32.                     End If
    
33.                 End With
    
34.             Next i
    
35.         End With
    
36.     Next myTB
    
37.     Set myTB = Nothing
    
38.     Erase Total
    
39. End Sub

复制代码