怎么把多个excel工作表合并到一个excel表中
我想把上面的五个工作表（其实有几百个这样的表）合并到一个汇总表中。最后汇总表合并的结果是下面这样的：
。这个里面的46，47，48，里面的格式要跟没有合并之前是一样的。合并之后中间不能出现一些无用的比如SHEET1 SHEET2 等无用的空白表格。
求大神，帮忙写个代码。谢谢大家了。、、、不甚感激啊！！！
网上我也找到了一些代码。但是合并之后不知道怎么回事，中间出现了很多没有的空白表格。比如sheet1 sheet1(1)这些空白表格，我合并之后要一起打印出来的，所以中间不能出现无用的空白表格。
1、我们以下图所示的电脑桌面上两张Excel表为例，我们看到分别是工资表和设备列表，接着打开Excel创建一张空白的工作簿；
2、在空白工作簿的左下角sheet 1工作表当中，我们随意选择一个空白单元格，接着点击“数据”-“现有连接”；
3、然后即可弹出现有连接对话框，我们点击对话框左下角的“浏览更多”，然后找到刚才的两份Excel存放的位置，也就是电脑桌面上；
4、点击其中一种Excel表以后，会弹出导入数据对话框，我们只需勾选“表”和数据的放置位置即可，这样第一份Excel导入成功。
5、然后在此工作簿左下角新建sheet 2工作表，按照统一的方法导入剩余的那份Excel表，不过我们可能会遇到下面的一种情况，那就是这份Excel表里面本身就包含多个sheet表格；
6、系统默认的只能一个个的导入，不过我们可以将这几个sheet工作表放到新建的同一个工作表中；
7、最后对比一下导入前后的效果图，我们会发现文字类内容导入非常完美，但是图标类内容导入就会有遗漏，所以以后按照以上方法导入的时候要慎重选择。
以WPS 2019版本为例：
如需把多个excel表格合并到一个表格里，可使用WPS2019中已自带的「文档拆分合并」功能：
操作步骤：
1）打开其中一份「表格（Excel）」文档；
2）点击「特色应用-拆分合并-合并」；
3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。
- 官方电话官方服务
- 官方网站
1、新建一个工作薄，将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键，选择“查看代码”。
4、在打开的VBA编辑窗口中粘贴以下代码：
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
5、关闭VBA编辑窗口。
6、在excel中，工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。
7、在打开的对话窗口中，选择你要合并的300个工作薄。本回答被网友采纳