把多个excel文件合并到一个文件中 （我的表格都是一个格式的 只是里头的数据不同）

excel

1工具→宏→录制新宏→输入名字比如合并 2然后点停止录制（这样就搞出来一个空宏） 3再去工具→宏→宏，选合并，点编辑 4把弹出来的窗口里的所有内容全删掉（本来也没几行），替换成下面这段代码： Sub 合并() Dim FileSet Dim i As Integer Dim filename On Error GoTo 0 Application.ScreenUpdating = False FileSet = Application.GetOpenFilename(FileFilter:=excel 2003(*.xls),*.xls,excel 2007(*.xlsx),*.xlsx, MultiSelect:=True, Title:=选择要合并的文件) If TypeName(FileSet) = Boolean Then GoTo ExitSub End If For Each filename In FileSet Workbooks.Open filename Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) Next ExitSub: Application.ScreenUpdating = True End Sub 复制完保存一下就OK了，之后运行这个宏就能批量合并excel文件，超方便！