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

发布网友 发布时间：2022-03-02 06:27

我来回答

共9个回答

热心网友 时间：2022-03-02 07:56

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

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

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

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

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

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

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

热心网友 时间：2022-03-02 09:14

以WPS 2019版本为例：

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

操作步骤：

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

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

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

热心网友 时间：2022-03-02 10:49

使用方法：
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个工作薄。

热心网友 时间：2022-03-02 12:40

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

热心网友 时间：2022-03-02 14:48

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

热心网友 时间：2022-03-02 17:13

 易用宝  里面就有合并工作表功能 http://yyb.excelhome.net

热心网友 时间：2022-03-02 19:54

   一键合并，请看已有的百度知道回答：

  

地址：网页链接

热心网友 时间：2022-03-02 23:26

空白页不影响打印的

热心网友 时间：2022-03-03 03:14

必须VBA。。。。。。