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个工作薄。
把问题作为内容(邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件,以免误删)、excel样表文件(把现状和目标效果表示出来)作为附件发来看下 yqch134@163.com
百度 excel工具箱 很多 入完美 百宝箱 e灵 必备工具箱等 都有 合并同文件下工作表到同一工作簿中,有的收费有的不收费,建议用工具箱,方便快捷。。。