合并多个Excel工作文档进行计算.doc

合并多个Excel工作文档进行计算 多个Excel表的合并计算 一、Excel建立合并计算 一个公司内可能有很多的销售地区或者分公司，各个分公司具有各自的销售报表和会计报表，为了对整个公司的所有情况进行全面的了解，就要将这些分散的数据进行合并，从而得到一份完整的销售统计报表或者会计报表。在Excel中系统提供了合并计算的功能，来完成这些汇总工作。 所谓合并计算是指，可以通过合并计算的方法来汇总一个或多个源区中的数据。MicrosoftExcel提供了三种合并计算数据的方法。一是通过公式，对于所有类型或排列的数据，推荐使用公式中的三维引用。二是通过位置，如果要合并几个区域中相同单元格里的数据，可以根据位置进行合并。三是通过分类，如果包含几个具有不同布局的区域，并且计划合并包含匹配标志的行或列中的数据，可以根据分类进行合并。 要想合并计算数据，首先必须为汇总信息定义一个目的区，用来显示摘录的信息。此目标区域可位于与源数据相同的工作表上，或在另一个工作表上或工作簿内。其次，需要选择要合并计算的数据源。此数据源可以单个工作表、多个工作表或多重工作簿中。在Excel2000中，可以最多指定255个源区域来进行合并计算。在合并计算时，不需要打开包含源区域的工作簿。 1、通过公式来合并计算数据 1）在合并计算工作表上，复制或输入待合并计算数据的标志。 2）单击用来存放合并计算数据的单元格。 3）键入合并计算公式，公式中的引用应指向每张工作表中包含待合并数据的源单元格。例如，若要合并工作表2到工作表7的单元格B3中的数据，请键入“=SUM(Sheet2:Sheet7!B3)”。如果要合并的数据在不同的工作表的不同单元格中，请输入公式“=SUM(Sheet3!B4,Sheet4!A7,Sheet5!C5)”。如果不想使用键入的方式在公式中输入引用如Sheet3!B4，请在需要使用引用处键入公式，单击工作表选项卡，再单击单元格。 2、通过位置来合并计算数据 通过位置来合并计算数据是指：在所有源区域中的数据被相同地排列，也就是说想从每 一个源区域中合并计算的数值必须在被选定源区域的相同的相对位置上。这种方式非常适用于我们处理日常相同表格的合并工作，例如，总公司将各分公司的合并形成一个整个公司的报表。再如，税务部门可以将不同地区的税务报表合并形成一个市的总税务报表等等。 下面我们以一个实例来说明这一操作过程，建立如图11-1所示的工作簿文件。 在本例中我们将对工作表济南、天津、青岛各区进行合并计算形成一个整个公司的报表。执行步骤如下： （1）为合并计算的数据选定目的区，如图11-2所示。 （2）执行“数据”菜单中的“合并计算”命令，出现一个如图11-3的对话框。 （3）在“函数”框中，选定我们希望MicrosoftExcel用来合并计算数据的汇总函数，求和（SUM）函数是默认的函数。 （4）在“引用位置”框中，输入希望进行合并计算的源区的定义。如果想不击键就输入一个源区域定义，先选定“引用位置”框，然后在工作表选项卡上单击“济南”，在工作表中选定源区域。该区域的单元格引用将出现在“引用位置”框中，如图11-4所示。 （5）按下“添加”按钮。对要进行合并计算的所有源区域重复上述步骤。可以看到合并计算对话框如图11-5所示。 最后按下“确定”按钮。我们就可以看到合并计算的结果，如图11-6所示。 （6）对于合并计算，我们还可以将保存在不同工作簿中的工作表进行合并操作，其操作步骤是在我们执行上述步骤2时，如果需要的工作表没有被打开，选择“浏览”按钮，之后出现一个如图11-7的浏览对话框，我们可以从中选定包含源区域的工作簿。 当我们选择了“确定”按钮后，MicrosoftExcel将在（引用位置）框中插入文件名和一个感叹号(!)。下一步我们可以键入单元格引用或源区域的名字，也可以为源区域键入全路径，工作簿名字和工作表名字。然后在工作表名字后面键入一个感叹号(!)，并键入单元格引用或源区域的名字。 如果不能确定单元格引用区域，也可以先将该工作簿文件打开，然后利用“窗口”菜单，选择该工作簿文件，按上例中的步骤3完成选定工作。 重复上例中的步骤2到5，最后按下“确定”按钮完成合并计算的工作。图11-8显示了一个引用不同工作簿的实例。 3、通过分类来合并计算数据 通过分类来合并计算数据是指：当多重区域包含相似的数据却以不同方式排列时，此命令可使用标记，依不同分类进行数据的合并计算，也就是说，当选定的格式的表格具有不同的内容时，我们可以根据这些表格的分类来分别进行合并工作。举例来说，假设某公司共有两个分公司，它们分别销售不同的产品，如图11-9的显示，总公司要得到完整的销售报表时，就必须使用“分类”来合并计算数据。 快速合并多个Excel工作簿到一个新的工作簿 如果你有大量Excel工作簿需要合并到一起时，要是你手动完成这一工作，也许这个工作可能将花费你一整天的时间。其实要完成这类合并工作，最好的方法是使用宏，这样的话短时间内甚至只需几分钟便可完成。本文所介绍的技巧将向你说明如何创建这样一个宏，看看如何使用宏来节省你的宝贵时间。此技巧可以应用于MicrosoftExcelxx/xx/xx/xx等版本，只是在弹出VBA代码窗口（MicrosoftVisualBasic窗口、MicrosoftVisualBasicforApplications窗口）时会因Excel版本不同而有所差异。 此方法支持：被合并的扩展名为“.xls”和“.xlsx”的工作簿、合并中可多次选择不同文件夹下的工作簿。将需要合并的excel工作簿文件放置在一个文件夹中以便于选择（如果放于不同文件下，则需要在提示“是否继续添加其他文件夹中的Excel工作簿文件？”时选择“是”），这些工作簿总数适宜100个左右或以下，不要求工作簿中只包含一个单独的工作表，允许部分工作簿包含多个工作表（以电脑配置或者说电脑可用资源为上限，没有固定的值，如果处理过多时excel没有响应或电脑假死甚至死机时，请减少待合并工作簿的数量），建议在合并前删除待合并的工作簿中的空工作表。 在该文件夹中，新建立一个新的Excel工作簿文件。打开新建的Excel工作簿文件，按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 在弹出的代码窗口中（如下图）粘贴以下代码（如果没有出现直接复制代码的面板等时，需要按Ctrl+R或点菜单栏中“视图”中的“工程资源管理器”，再双击出现在左上方的“工程VBAProject”中的“Sheet1”，即可打开代码窗口；宏代码应粘贴到除ThisworkBook外的工作表中）： SubCombineWorkbooks() SourcecodefromtheInterforfree DaxinCPAGuangdongBranchHoohurtlemodifiedonJuly27,xx DimFilesToOpen DimxAsInteger OnErrorGoToErrHandler Application.ScreenUpdating=False Extension1: FilesToOpen=Application.GetOpenFilename(FileFilter:=MicrosoftExcel97-xx工作簿文件(*.xls),*.xls,MultiSelect:=True,Title:=请选择待合并的工作簿文件) IfTypeName(FilesToOpen)=BooleanThen MsgBox没有选中Excel97-xx工作簿文件 GoToExtension2 EndIf x=1 Whilex=UBound(FilesToOpen) Workbooks.OpenFilename:=FilesToOpen(x) Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) x=x+1 Wend Extension2: FilesToOpen=Application.GetOpenFilename(FileFilter:=MicrosoftExcel工作簿文件(*.xlsx),*.xlsx,MultiSelect:=True,Title:=请选择待合并的工作簿文件) IfTypeName(FilesToOpen)=BooleanThen MsgBox没有选中Excel工作簿文件 GoToContinue EndIf x=1 WhilexMaintenanceTableS