如何把excel不同工作薄里同一单元格的数据求和？

Question

如题！
把不同工作薄（如c:\工作薄1.xls，c:\工作薄2.xls，c:\工作薄3.xls三个工作薄）里均名为sheet1的工作表的同一单元格（如A1）的数据求和？
由于实际要求和的不是3个工作薄，而是很多个，所以不能把工作表复制到同一工作薄，且不能一个个单元格的点累加。
请问是否有简便的方法？
普通的加法求和方法我知道，不过太浪费时间了不能用。

Answer 1

在同一路径下，建立一个新工作薄，运行以下宏代码：

Sub aa()
Range("A1").Select
Dim i As Integer
For i = 1 To 3 '有几个工作薄，最大值就设为几
ActiveCell.Range("A" & i) = "='" & ThisWorkbook.Path & "\[工作薄" & i & ".xls]sheet1'!A1"
Next

Dim rng As Integer
rng = Sheet1.Range("A65536").End(xlUp).Row - 1
ActiveCell.Range("A" & i) = "以上小计："
ActiveCell.Range("A" & i + 1) = "=sum($A$1:$A$" & i - 1 & ")"

End Sub

Answer 2

数据透视表就可以