搜索
发下去的表都是一样，收上来汇总的时候一个个打开复制粘贴汇总太麻烦，有个代码就万事大吉。将需要合并的excel工作簿文件放置在一个文件夹中。在文件夹内新建一个excel表，用于汇总，双击打开，鼠标在表格右下角的标签页sheet1上右键，选择查看代码粘贴如下代码：SubCombineFiles()DimpathAsStringDimFileNameAsStringDimLastCellAsRangeDimWkbAsWorkbookDimWSAsWorksheetDimThisWBAsStringDimMyDirAsStringMyDir=ThisWorkbook.path&\'ChDriveLeft(MyDir,表1)'findalltheexcelfiles'ChDirMyDir'Match=Dir$()ThisWB=ThisWorkbook.NameApplication.EnableEvents=FalseApplication.ScreenUpdating=Falsepath=MyDirFileName=Dir(path&\*.xls,vbNormal)DoUntilFileName=IfFileNameThisWBThenSetWkb=Workbooks.Open(FileName:=path&\&FileName)ForEachWSInWkb.WorksheetsSetLastCell=WS.Cells.SpecialCells(xlCellTypeLastCell)IfLastCell.Value=AndLastCell.Address=Range($A$1).AddressThenElseWS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)EndIfNextWSWkb.CloseFalseEndIfFileName=Dir()LoopApplication.EnableEvents=TrueApplication.ScreenUpdating=TrueSetWkb=NothingSetLastCell=NothingEndSub其中，代码中的“表1”，可以是文件夹内的任意一个文件名若代码框内无红色标记，表明代码正确，单击运行，或按F5运行；若代码框内有红色标记，检查代码是否粘贴完整。运行完毕后（上图左上窗格不再跑数据），关闭该窗口。检查汇总后的excel表格，删除不需要的空表。下面开始汇总数据在汇总好了的工作簿上新建一个工作表例如要汇总表1-表4的A1格的数据：在A1格内输入=sum（），向右把光标移至括号内，点击表1的A1，按住shift，点击表4，此时汇总的表格内显示的是点击回车，出现统计数据。拖动黑色十字，出现汇总数据。