合并多个相同的电子表格数据学习资料.docVIP

合并多个相同的电子表格数据 精品文档 精品文档 收集于网络，如有侵权请联系管理员删除 收集于网络，如有侵权请联系管理员删除 精品文档 收集于网络，如有侵权请联系管理员删除 合并多个相同的电子表格数据 1把所有表格放在一个文件夹下如 2.在此文件夹下新建一个电子表格，然后打开在第一张工作表名字上点右键选择“查看代码” 3.把下面的代码复制进去： Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath \ *.xls) AWbName = ActiveWorkbook.Name Num = 0 Do While MyName If MyName AWbName Then Set Wb = Workbooks.Open(MyPath \ MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range(B65536).End(