如何对同一文件夹下的各excel文件的同一位置进行求和

Question

在文件夹下建有多个excel文件（数目随时会变，文件格式相同：用模板建立）。想建个excel文档来专门求和这个文件夹下各excel文件中相同位置的数据（如A1单元格），能否实现？求和公式怎么写？

Answer 1

如果文件太多的话，必须要用宏，看附件，看代码，看GIF

Sub aaa()
Dim f, wb, x
f = Application.GetOpenFilename("EXCEL文件,*.*,", 1, MultiSelect:=True)
For x = 1 To UBound(f)
Set wb = Workbooks.Open(f(x))
Workbooks("test.xls").Sheets(1).Range("a1") = Workbooks("test.xls").Sheets(1).Range("a1").Value + wb.Sheets(1).Range("a1").Value
wb.Close
Next x
End Sub

Answer 2

不大明白你的意思。是说excel文件1下A1列单元格+excel文件2下A1列单元格+...+excel文件n下A1列单元格的和吗？数目会变是指可能删除个别excel文件吗？

Answer 3

汇总表的a1输入
=sum('*'!a1)