Question

怎么把多个excel工作表合并到一个excel表中

我想把上面的五个工作表（其实有几百个这样的表）合并到一个汇总表中。最后汇总表合并的结果是下面这样的：
。这个里面的46，47，48，里面的格式要跟没有合并之前是一样的。合并之后中间不能出现一些无用的比如SHEET1 SHEET2 等无用的空白表格。
求大神，帮忙写个代码。谢谢大家了。、、、不甚感激啊！！！
网上我也找到了一些代码。但是合并之后不知道怎么回事，中间出现了很多没有的空白表格。比如sheet1 sheet1(1)这些空白表格，我合并之后要一起打印出来的，所以中间不能出现无用的空白表格。





Answer 1

1、我们以下图所示的电脑桌面上两张Excel表为例，我们看到分别是工资表和设备列表，接着打开Excel创建一张空白的工作簿；

2、在空白工作簿的左下角sheet 1工作表当中，我们随意选择一个空白单元格，接着点击“数据”-“现有连接”；

3、然后即可弹出现有连接对话框，我们点击对话框左下角的“浏览更多”，然后找到刚才的两份Excel存放的位置，也就是电脑桌面上；

4、点击其中一种Excel表以后，会弹出导入数据对话框，我们只需勾选“表”和数据的放置位置即可，这样第一份Excel导入成功。

5、然后在此工作簿左下角新建sheet 2工作表，按照统一的方法导入剩余的那份Excel表，不过我们可能会遇到下面的一种情况，那就是这份Excel表里面本身就包含多个sheet表格；

6、系统默认的只能一个个的导入，不过我们可以将这几个sheet工作表放到新建的同一个工作表中；

7、最后对比一下导入前后的效果图，我们会发现文字类内容导入非常完美，但是图标类内容导入就会有遗漏，所以以后按照以上方法导入的时候要慎重选择。

Answer 2

以WPS 2019版本为例：

如需把多个excel表格合并到一个表格里，可使用WPS2019中已自带的「文档拆分合并」功能：

操作步骤：

1）打开其中一份「表格（Excel）」文档；

2）点击「特色应用-拆分合并-合并」；

3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。

• 官方电话
• 官方服务
  • 官方网站

Answer 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个工作薄。

Answer 4

把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）、excel样表文件（把现状和目标效果表示出来）作为附件发来看下 yqch134@163.com

Answer 5

百度 excel工具箱 很多 入完美 百宝箱 e灵 必备工具箱等 都有 合并同文件下工作表到同一工作簿中，有的收费有的不收费，建议用工具箱，方便快捷。。。