Question

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

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

Answer 1

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的数据求和就完成了。

Answer 2

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

   

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

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

   
   

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

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

   
   

4. 累积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")))

   
   

Answer 3

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

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

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

追问

还是不知道咋操作。。。

追答

找到那个对话框了吗？

追问

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

追答

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

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

Answer 4

每个表的格式是不是一样的？如果是一样的，在汇总的表格中，输入“=”，然后单击相应的要求和表格的对应数字，每选中一个数字，输入“+”，直到最后一个数值选中，然后按回车，就OK了。其余的可以用拖的形式迅速求和。

Answer 5

'工具-宏-编辑器-插入-模块-粘贴下面代码-运行
'这个是把所有表对应单元格数据总和

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