合并excel多个sheet表（合并excel多个sheet）

大家好,小东方来为大家解答以上的问题。合并excel多个sheet表，合并excel多个sheet这个很多人还不知道,现在让我们一起来看看吧！

1、要想把多个excel表合并成多个sheet，一共有七步，具体操作如下。

2、新建一个工作薄，将其命名为你合并后的名字。

3、2、打开此工作薄。

4、3、在其下任一个工作表标签上点击右键，选择“查看代码”。

5、4、在打开的VBA编辑窗口中粘贴以下代码：Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)***.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub5、关闭VBA编辑窗口。

6、6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。

7、7、在打开的对话窗口中，选择你要合并的n个工作表。

本文到此分享完毕，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！