合并单元格求和

yshcy

对C列和D列的各单元格的，根据A列的不同的期求和，填入E列的各合并单元格里。为了表达清楚，我把要求和的C D列的单元格用颜色标了下。就是C列+D列的和，放入E列

ykcbf1100

合并单元格求和

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.2   合并单元格求和
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 2).End(3).Row
   
4.         For i = 2 To r
   
5.             Set Rng = .Cells(i, 1)
   
6.             Sum = 0
   
7.             If Rng.MergeCells = True Then
   
8.                 m = Rng.MergeArea.Count
   
9.                 For x = 1 To m
   
10.                     For j = 3 To 4
    
11.                         Sum = Sum + .Cells(i + x - 1, j)
    
12.                     Next
    
13.                 Next
    
14.                 .Cells(i, 5).Value = Sum
    
15.                 i = i + m - 1
    
16.             Else
    
17.                 .Cells(i, 5).Value = .Cells(i, 3).Value + .Cells(i, 4).Value
    
18.             End If
    
19.         Next
    
20.     End With
    
21. End Sub
    
22. 
    

复制代码

小凡、、、

quqiyuan

这种情况用公式也方便，供参考。。。
公式换这个：=SUM(C2:$D$50)-SUM(E3:$E$50)
最后Ctrl键+enter键一起按

cidanji

yanglinzi

1. Sub 求和()
   
2. Dim arr, brr, i, j, r, n
   
3. With Sheet1
   
4.     r = .Cells(Rows.Count, 2).End(xlUp).Row
   
5.     c = .Cells(1, Columns.Count).End(xlToLeft).Column
   
6.     arr = .Range("a1").Resize(r, c)
   
7. End With
   
8. For i = 2 To r
   
9.     For j = i + 1 To r + 1
   
10.         If j <= r Then
    
11.             If arr(j, 1) = "" Then
    
12.                 arr(j, 1) = arr(i, 1)
    
13.             End If
    
14.             If arr(i, 1) <> arr(j, 1) Then
    
15.                 arr(i, 5) = Application.Sum(Range(Cells(i, 3), Cells(j - 1, 4)))
    
16.                 i = j
    
17.             End If
    
18.             arr(i, 5) = Application.Sum(Range(Cells(i, 3), Cells(j - 1, 4)))
    
19.         End If
    
20.     Next
    
21. Next
    
22. Sheet1.Range("e1").Resize(r) = Application.Index(arr, 0, 5)
    
23. End Sub
    

复制代码

yanglinzi

请测试。。

醉眼看尘世

参考下，来个你能上手操作的

yshcy

yanglinzi 发表于 2024-9-2 16:21
请测试。。

还需改进，无法运行