excel表格数据汇总问题－急！

来源：百度知道 编辑：UC知道 时间：2024/09/22 10:06:13
我有20个单位报过来的表格，内容庞杂，但格式完全一样，现在需要将这20张表的每一单元格的数字加总起来造一张汇总表（汇总表的格式和各单位的表一样），有什么函数可以解决，怎样用？？
（每张表里都有8个sheet）
有没有跨文件引用数据的函数？

先把所有的表合并在一起，然后做分类汇总不是方便点。
由于表格较多可以用宏来解决
宏命令如下：

Application.ScreenUpdating = False
Dim MyPath
Dim MyName
Dim AWbName
Dim Wb
Dim WbN
Dim NUM As Long
Dim G As Long
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
NUM = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
NUM = NUM + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName