单位EXCELl高手也解决不了：如何在上方大批量自动求和

john3035

新人急求：找遍论坛，也没有发现解决的办法，只有如何在下方大批量自动求和。但有时为了数据醒目，经常需要在上方求和，难道这个问题真的解决不了吗？

yfan17

上方大批量自动求和？对一车间、二车间、人力资源部、销售1部、经理室自动求和吗？

xiangzi728

数据应该是从某一明细表格里算出来的，如果有明细表，可以用数据透视表来汇总。
表格内有大量的合并单元格，而且公式单元格夹杂在数据丛中，对计算会带来很多麻烦。
试着做了一个结果，看一下是不是能达到要求？

大批量在上方求和.zip (8.2 KB, 下载次数: 54)

2016-5-24 21:49 上传

点击文件名下载附件

小新De和尚头

自定义函数 SUMX(参数1,参数2)

1. Function SUMX(rng As Range, Optional p As Integer = 1)
   
2.         Dim mergeCount As Integer
   
3.         mergeCount = rng.MergeArea.Rows.Count
   
4.         If p <> 1 And p <> -1 Then
   
5.                 SUMX = Nothing
   
6.                 Exit Function
   
7.         End If
   
8.         SUMX = Application.WorksheetFunction.Sum(Application.ThisCell.Offset(p, 0).Resize((mergeCount - 1) * p, 1))
   
9. End Function

复制代码

用法：如 =SUMX(A2,3)第一个参数选择你的合并单元格
第二个参数为1是向下求和，-1为向上求和，默认为1（可以省略），如图所示

yuqiang462

选中d列，F5键，定位条件，空值，确定，直接输入公式=SUM(OFFSET(D3,,,IF(COUNT(MATCH("?*",A3:A100,0)),MATCH("?*",A3:A100,0),COUNT(D3:D100))))，同时按ctrl+会车结束即可

1578278106

1. Sub sums() '上方求和，以“小计”和合并单元格为条件
   
2.     Dim maxRow As Integer, x As Integer, i As Integer
   
3.     maxRow = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     For x = 2 To maxRow
   
5.         If Cells(x, 2) = "小计" Then
   
6.         i = Cells(x, 2).Offset(0, -1).MergeArea.Rows.Count
   
7.         Cells(x, 2).Offset(0, 2) = WorksheetFunction.Sum(Range(Cells(x, 2).Offset(1, 2), Cells(x, 2).Offset(i - 1, 2)))
   
8.         End If
   
9.     Next
   
10. End Sub
    

复制代码

刀羊

试试分类汇总

horselyq

D2公式，筛选-小计-复制D2单元格，粘贴就可以。

1. =SUM(D3:D35)-2*SUMIF(B3:B35,"小计",D3:D35)

复制代码

论坛有这样的例子，只是你没找到而已。

1578278106

jsgj2023

刀羊 发表于 2016-5-24 22:49
试试分类汇总

分类汇总也许是最简单最快的办法。