excel汇总相同表格数据.docxVIP

excel汇总相同表格数据 　　篇一：在不打开EXCEL表的前提下,有办法将同一文件夹下的相同单元格数据进行汇总 　　在不打开EXCEL表的前提下，有办法将同  　　一文件夹下的相同单元格数据进行汇总  　　一、将所有要合并的电子表格放在同一个文件夹内，便于操作。如：总文件夹。  　　二、新建一个电子表，用于存放导出的内容。如：合并文件。  　　三、打开，选择所有文件，右击→重命名，键入一个文件名，按回车确认，这样所有文件就会自动编号命名。如：A、A  　　（1）、A（2）??  　　四、打开新建的电子表【合并文件】，在A列输入要导出内容的文件名。A、A（1）、A（2），选择第2、3单元格，拖动拖动柄到需要的位置。  　　五、打开【总文件夹】内第一个文件A，  　　六、打开【合并文件】，在B列第一个单元格内输入“=”后，点击【总文件夹】内第一个文件A中需要导出的单元格的内容，按回车确认。如想导入Sheet1! E1单元格内内容，关闭A文件后，编辑栏内显示编辑好的公式：  　　=D:\总文件夹\[]Sheet1!$E$1  　　这是想导入的文件所在的路径和文件名，表格名。选择并复制它。  　　七、在【合并文件】的C列第一个单元格内输入=””  　　注意,双引号一定是英文标点符号。再点击双引号中间，右击 　　→。在[的后面输入 在.前面输入选中 A 中间的字母点击A1单元格，这时编辑栏显示： 　　==D:\总文件夹\[A1.xls]Sheet1!$E$1  　　这是一段文本，主要作用是下一步能拖动，将A列的文件名加入其中。  　　八、选中C1单元格，拖动拖动柄到需要的位置。  　　九、选中C列，右击→复制  　　十、选中D列，右击→选择性粘贴→数值。  　　十一、按Alt+F11键，打开VBA编辑器，按Ctrl+G键，打开立即窗口，输入，= （显示选中单元格内容） 回车。这时会出现更新数据提示，只要找到总文件夹所在的位置，打开一个文件，更新数据，这时所有文件就可全部导入。注意，要选中D列。  　　十二、关闭VBA编辑器，你就可以发现导入的内容。 　　篇二：excel中如何将相同格式的多个不同excel文件合并为一张表 　　excel中如何将相同格式的多个不同excel文件合并为一张表？  　　【问题描述】：日常工作中采集的数据经常会是大量格式相同的Excel表格。（如要求多个单位上交表格，最后需要汇总这些表格的内容），如何实现自动化合并呢？  　　【解决方案】：  　　1.将所有格式相同的Excel表格保存到一个文件夹内；  　　2.在文件夹内新建一个Excel工作表，命名为“汇总表”；  　　3.打开汇总表，按“Alt + F11”打开VBA开发环境，双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区编写如下代码：  　　Sub 合并当前目录下所有工作簿的全部工作表()  　　Dim MyPath, MyName, AWbName  　　Dim Wb As Workbook, WbN As String  　　Dim G As Long  　　Dim Num, ini As Long  　　 = False  　　MyPath =  　　MyName = Dir(MyPath \ *.xls)  　　AWbName =  　　Num = 0  　　ini = 0  　　Do While MyName  　　If MyName AWbName Then  　　Set Wb = (MyPath \ MyName)  　　Num = Num + 1  　　With Workbooks(1).ActiveSheet  　　If ini = 0 Then  　　(1).Range((1).Cells(1, 1),(1).Cells(1,(  　　1).)).Copy .Cells(1, 1)  　　ini=1  　　End If  　　For G=1 To  　　(G).Range((G).Cells(2,1),(G).Cells((G).,(G).)).Copy .Cells(.Range(A65536).End(xlUp).Row+1,1)  　　Next  　　WbN=WbN Chr(13)  　　 False  　　En(来自: 小龙 文档 网:excel汇总相同表格数据)d With  　　End If  　　MyName=Dir  　　Loop  　　Range(A1).Select  　　 = True  　　MsgBox 共合并了 Num 个工作