相同excel表格汇总.docVIP

相同excel表格汇总 篇一：在Excel中相同格式工作簿(工作表)汇总到一个工作簿中的方法： 18、在Excel中相同格式工作簿（工作表）汇总到一个工作簿中的方法： 1、首先新建一个汇总工作簿，汇总工作簿和要会做的其他的工作簿要放在同一个文件夹中。 2、然后再汇总工作簿中打开宏函数（ALT+F11）复制如下代码： Sub HuiZong() Dim myfile, mypath, wb#39;声明变量 Application.ScreenUpdating = False#39;关闭屏幕更新 Sheet1.UsedRange.Offset(1, 0).Clear #39;清除除表头之外的所有内容 mypath = ThisWorkbook.Path #39;找到当前工作簿的路径 myfile = Dir(mypathamp; \*.xls*) #39;遍历当前文件夹下的Excel文件 Do While myfilelt; #39;当找到的文件不为空时 If myfilelt;ThisWorkbook.Name Then#39;当找到的文件不是当前Excel工作簿时 Set wb = GetObject(mypathamp; \ amp;myfile)#39;得到dir找到的工作簿的内容，设为wb With wb.Sheets(1) #39;对找到的工作簿的sheet1进行操作 #39;复制wb的sheet1除第一行的所有内容 .UsedRange.Offset(1, 0).Copy Sheet1.Range(A amp; Sheet1.UsedRange.Rows.Count + 1) End With wb.Close False#39;关闭wb工作簿且不保存 End If myfile = Dir #39;寻找下一个Excel工作簿 Loop Application.ScreenUpdating = True#39;恢复屏幕更新 End Sub 篇二：快速生成多张相同的EXCEL表格 快速生成多张相同的EXCEL表格 点在工伯表上，右键→“迭定所有工作表” 制作多个相似的EXCEL表格时，一般是用复制粘贴或另存为的方法，但是有一种简单的方法可以快速生成多个相同的EXCEL表格。打开EXCEL2010，EXCEL2010默认下，新EXCEL表格有三个表，按住CTRL键，同时点击这三个EXCEL表的标签全选这三张表。然后在第一张EXCEL表中输入内容如表头等。在另外两张EXCEL表的相同单位中也出现了与第一张EXCEL表一模一样的内容。这样在做相似的EXCEL表格时，用这个方法可以快速准确地生成多张EXCEL表。 快速生成多张 相同的EXCEL表格 注：本方法适用于EXCEL 2003、EXCEL2007和EXC EL2010。 篇三：在不打开EXCEL表的前提下,有办法将同一文件夹下的相同单元格数据进行汇总 在不打开EXCEL表的前提下，有办法将同 一文件夹下的相同单元格数据进行汇总 一、将所有要合并的电子表格放在同一个文件夹内，便于操作。如：总文件夹。 二、新建一个电子表，用于存放导出的内容。如：合并文件。 三、打开，选择所有文件，右击→重命名，键入一个文件名，按回车确认，这样所有文件就会自动编号命名。如：A、A （1）、A（2）?? 四、打开新建的电子表【合并文件】，在A列输入要导出内容的文件名。A、A（1）、A（2），选择第2、3单元格，拖动拖动柄到需要的位置。 五、打开【总文件夹】内第一个文件A， 六、打开【合并文件】，在B列第一个单元格内输入“=”后，点击【总文件夹】内第一个文件A中需要导出的单元格的内容，按回车确认。如想导入Sheet1! E1单元格内内容，关闭A文件后，编辑栏内显示编辑好的公式： =#39;D:\总文件夹\[A.xls]Sheet1#39;!$E$1 这是想导入的文件所在的路径和文件名，表格名。选择并复制它。 七、在【合并文件】的C列第一个单元格内输入=”” 注意,双引号一定是英文标点符号。再点击双引号中间，右击 →。在[的后面输入 amp; 在.前面输入amp;选中amp; A amp;中间的字母点击A1单元格，这时编辑栏显示： ==#39;D:\总文件夹\[amp;A1amp;.xls]Sheet1#39;!$E$1 这是一段文本，主要作用是下一步能拖动，将A列的文件名加入其中。 八、选中C1单元格，拖动拖动柄到需要的位置。 九、选中C列，右击→复制 十、选中D列，右击→选择性粘贴→数值。 十一、按Alt+F11键，打开VBA编辑器，按Ctrl+G键，打开立即窗口，输入，selection.for