Excel把多个文件合并到一个Excel文档里Excel合并

　　日常工作当中，会产生很多Excel文档，每当需要整理的时候又很难归类、查询。这个时候就需要把诺干个Excel文档，合并到一个Excel文档里。一个Excel文档对应一个Sheet工作表，方便查询、归类、整理。下面小编就为大家介绍Excel2013把多个文件合并到一个Excel文档里方法，喜欢的朋友一起来看看吧！
　　表格合并
　　1、把需要合并的excel表格文档放到同一个文件夹里
　　2、新建一个ldquo；数据合并。xlsxldquo；文档
　　3、打开ldquo；数据合并。xlsxldquo；文档，在rdquo；Sheet1ldquo；工作表的地方右键rarr；查看代码（快捷键：ldquo；AltF11rdquo；，尽量选用快捷方式）进入到MicrosoftVisualBasicforApplications窗口
　　4、双击工程资源管理器里面的sheet1，在右侧的代码区粘贴如下代码：
　　Sub合并当前目录下所有工作簿的全部工作表（）
　　DimMyPath，MyName，AWbName
　　DimWbAsWorkbook，WbNAsString
　　DimGAsLong
　　DimNumAsLong
　　DimBOXAsString
　　Application。ScreenUpdatingFalse
　　MyPathActiveWorkbook。Path
　　MyNameDir（MyPathamp；amp；。xls）
　　AWbNameActiveWorkbook。Name
　　Num0
　　DoWhileMyNamelt；gt；
　　IfMyNamelt；gt；AWbNameThen
　　SetWbWorkbooks。Open（MyPathamp；amp；MyName）
　　NumNum1
　　WithWorkbooks（1）。ActiveSheet
　　。Cells（。Range（A65536）。End（xlUp）。Row2，1）Left（MyName，Len（MyName）4）
　　ForG1ToSheets。Count
　　Wb。Sheets（G）。UsedRange。Copy。Cells（。Range（A65536）。End（xlUp）。Row1，1）
　　Next
　　WbNWbNamp；Chr（13）amp；Wb。Name
　　Wb。CloseFalse
　　EndWith
　　EndIf
　　MyNameDir
　　Loop
　　Range（A1）。Select
　　Application。ScreenUpdatingTrue
　　MsgBox共合并了amp；Numamp；个工作薄下的全部工作表。如下：amp；Chr（13）amp；WbN，vbInformation，提示
　　EndSub
　　5、运行rarr；运行子过程用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到rdquo；数据合并。xlsxldquo；文档的Sheet1工作表里面
　　6、完成Excel表格的合并
　　注意事项
　　本方法只在MicrosoftExcel2013软件下测试通过
　　2013之前的版本，数据量一大容易卡顿，建议使用最新版
　　其他的offce软件，尚未测试
　　以上就是Excel2013把多个文件合并到一个Excel文档里方法介绍，大家学会了吗？希望这篇文章能对大家有所帮助！