对不同行数的数据求和

jaychouxl1

请问大神，C列有办法写一个通用求和公式吗，谢谢！

tchh666

有                           

niko88819

先选C2:C16 , 输入公式 =SUM(B2:B$16)-SUM(D3:D$17) , 按 CTRL + ENTER 结束

jaychouxl1

niko88819 发表于 2023-3-26 23:57
先选C2:C16 , 输入公式 =SUM(B2:B$16)-SUM(D3:D$17) , 按 CTRL + ENTER 结束

大神，公式不对吧

tchh666

jaychouxl1 发表于 2023-3-27 15:47
大神，公式不对吧

上传附件。。楼上的老师的公式没问题，数据源标黄色的部分要和A列一样的合并单元格才可以。。

niko88819

jaychouxl1 发表于 2023-3-27 15:47
大神，公式不对吧

公式不对?那里不对呢?

niko88819

不想用公式,那就給你VBA代碼吧,寫的不是很好,勉強可以用

1. Sub SumMergedCells()
   
2.     Dim lastRow As Long
   
3.     Dim i As Long, j As Long
   
4.     Dim mergeRange As Range
   
5.     Dim mergeValue As Variant
   
6.     Dim sumValue As Double
   
7.     lastRow = Cells(Rows.Count, "A").End(xlUp).Row
   
8.     For i = 1 To lastRow
   
9.         If Range("A" & i).MergeCells Then
   
10.             Set mergeRange = Range("A" & i).MergeArea
    
11.             mergeValue = mergeRange.Value
    
12.             sumValue = 0
    
13.             For j = mergeRange.Row To mergeRange.Row + mergeRange.Rows.Count - 1
    
14.                 sumValue = sumValue + Cells(j, "B").Value
    
15.             Next j
    
16.             mergeRange.Cells(1, 1).Offset(0, 2).Value = sumValue
    
17.             mergeRange.Value = mergeValue
    
18.         Else
    
19.             Cells(i, "C").Value = Cells(i, "B").Value
    
20.         End If
    
21.     Next i
    
22. End Sub

复制代码

yfan17

1. =IF(A2="","",SUM(OFFSET(B2,,,MATCH(1,FREQUENCY(1,N(A3:A$1000<>"")),))))

复制代码