怎样在EXCEL中做到多个表中的相同内容在另一个表中求和

工作上遇到点困难,不知道哪位朋友有简便快捷的方法可以做到:将多个表格中的数据求和到另外一个表格中。有很多的数要求和的,比较麻烦的办法我会,但希望朋友能教我个快捷的办法~~在此先O(∩_∩)O谢谢啦!!!

Excel中如果当前工作簿中多个工作表中相同位置都有数据,如果对这些数据进行求和的话,不需要一个一个单元格的相加,有简单的办法。今天就来介绍Excel中对多个工作表中同一位置数据进行求和的方法。具体步骤如下:

1、我们要把下列sheet1到sheet4的数据求和汇总到汇总表中,汇总的前提条件是,sheet1到sheet4以及汇总表,5个表格的数据格式必须是一致的。

2、点击选中下方的汇总表标签,用鼠标选中汇总表中需要汇总的数据区域,如图从B3到E12所在的区域。

3、选中B3单元格,在上方内容栏输入公式=sum(sheet1:sheet4!b3),输入完毕按一下回车键。这样便得到了第一个数值。  

4、sum的意思表示求和,sheet1:sheet4表示跨工作表,从表1到表4,b3则表示求和数据所在的单元格。

5、用同样的方法输入公式,待公式输入完毕后按住ctrl+回车,这样sheet1到sheet4的数据求和就完成了。

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2017-09-02

    EXCEL工作薄中有12个表(1月份到12月份的),还在用多个+来求和,这样按键太多了,也太辛苦了,其实SUM、SUMIF、INDIRECT配合使用即可快速来求和多个表。

    数据12个表,并命名有规则,C列是项目名称,先用INDIRECT({1,2,3,4,5,6,7,8,9,10,11,12}&"月!C:C")

    近似于SUMIF(项目名称,单元格,数据区域),是SUMIF公式中的项目名称


    公式中在加INDIRECT({1,2,3,4,5,6,7,8,9,10,11,12}&"月!E:E")

    近似于SUMIF(项目名称,单元格,数据区域),是SUMIF公式中的数据区域


    累积12个月求和,括号外加SUM更完善

    =SUM(SUMIF(INDIRECT({1,2,3,4,5,6,7,8,9,10,11,12}&"月!C:C"),$A2,INDIRECT({1,2,3,4,5,6,7,8,9,10,11,12}&"月!E:E")))


第2个回答  2012-06-07

在“数据”标签里有一个“统合”(我的是日语版Excel,中文版忘了叫什么了),应该就是你要找的功能。

首先在一个空表开始操作,打开“统合”对话框,把每一个表中的你要求和的区域追加进去,

就行。应该好操作,有什么疑问再问我。

追问

还是不知道咋操作。。。

追答

找到那个对话框了吗?

追问

找到了,我觉得好麻烦啊。。

追答

以下都是以日文版名称为准,对应的中文自己找吧。

1. 选择一个单元格。(和计算在这个单元格),调出“统合的设定”对话框。
这时,“集计的方法”默认为合计。
2. 单击“统合元范围”,点击“参照”,选择一个工作表中要求和的范围。
3. 点击“追加”。
4. 循环2和3,直到把自己需要的求和范围都加进去。
5. 点击“OK”

第3个回答  推荐于2017-10-10
每个表的格式是不是一样的?如果是一样的,在汇总的表格中,输入“=”,然后单击相应的要求和表格的对应数字,每选中一个数字,输入“+”,直到最后一个数值选中,然后按回车,就OK了。其余的可以用拖的形式迅速求和。本回答被提问者采纳
第4个回答  2012-06-07
'工具-宏-编辑器-插入-模块-粘贴下面代码-运行
'这个是把所有表对应单元格数据总和

Sub qh()

Dim arr, crr
Dim x1%, y1%

ReDim arr(1 To Sheets.Count)

For j = 1 To Sheets.Count
arr(j) = Sheets(j).Range("A1").CurrentRegion
Next j

Sheets(1).Select
Sheets.Add
Sheets(1).Select
Sheets(1).Name = "所有表各表格总和"
Sheets("所有表各表格总和").Move After:=Sheets(Sheets.Count)

ReDim crr(1 To UBound(arr(1)), 1 To UBound(arr(1), 2))
For x = 1 To UBound(arr(1))
For y = 1 To UBound(arr(1), 2)
Dim h
h = 0
For n = 1 To UBound(arr)
h = h + arr(n)(x, y)
Next n
crr(x, y) = h
Next y
Next x
Sheets(Sheets.Count).Range("A1").Resize(UBound(crr), UBound(crr, 2)) = crr

End Sub
相似回答