Q2：如何将多个工作簿里的工作表的数据汇总到一个工作表
你好：可以在一个工作簿里建多个工资表，然后把那些工作簿的表拷过来。再汇总。
也可以用公式引用，地址引用时，工作簿要用中括号，表要用到叹号。如引用D盘根目录里，工程部sheet1表A1的值，公式是：=D:\[工程部.xls]Sheet1!$A$1。
如果你说这样写太麻烦了，可以在单元格里输入一个等于号“=”，然后点那个工作簿的A1，回车后，公式就有了。右拉、下拉复制就成了。
Q3：如何汇总多个工作簿不同工作表的数据
亲，请问每个工作簿有几个工作表？如果有多个工作表，是逐一遍历全部都要汇总吗？
将要汇总的文件放到一个单独专门的文件夹中。在此文件夹中新建或打开一个Excel文件作为汇总文件，找一个空白Sheet或者新建一个Sheet存放汇总数据。
然后按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。
Subhz()
Dimbt,i,r,c,n,firstAsLong
bt=1、Dimf,ffAsObject
Setfso=CreateObject("Scripting.FileSystemObject")
Setff=fso.getfolder(ThisWorkbook.Path&"\")
ForEachfInff.Files
Iff.Name<>ThisWorkbook.NameAndLeft(f.Name,2)<>"~$"Then
Workbooks.OpenThisWorkbook.Path&"\"&f.Name
WithWorkbooks(f.Name)
Fori=1To.Sheets.Count
Iffirst=0Then
c=.Sheets(i).Cells(1,Columns.Count).End(xlToLeft).Column
.Sheets(i).Range("A1").Resize(bt,c).CopyThisWorkbook.ActiveSheet.Range("A1")
n=bt+1:first=1、EndIf
r=.Sheets(i).Cells(Rows.Count,"A").End(xlUp).Row
.Sheets(i).Range("A"&bt+1).Resize(r-1,c).CopyThisWorkbook.ActiveSheet.Range("A"&n)
n=n+r-bt
Next
EndWith
Workbooks(f.Name).CloseFalse
EndIf
Nextf
Setfso=Nothing
EndSub
Q4：Excel 如何汇总多个工作簿的数据
如果数据总量没有超过EXCEL的容量限制，一般是合并到一个表中，以便使用【透视】等功能进行分析。合并的办法本质上是复制，如果表太多可以编写VBA来自动完成反复的打文件、复制、粘贴、关闭。
