Excel多个工作簿合并到一个工作簿中


把多个工作簿合并成一个工作簿中的多个sheet。

把要合并的工作簿放在同一个文件夹。

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

1、打开工作簿,在工作表名称处右击,选择查看代码。

2、在打开的VBA编辑窗口中粘贴以下代码:(根据需要修改xls或者xlsx)

Sub 多表多文件合并为多表一文件()

Dim FileArray

Dim X As Integer

Application.ScreenUpdating = False

FileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")

X = 1

While X <= UBound(FileArray)

Workbooks.Open Filename:=FileArray(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

关闭VBA编辑窗口

3、在Excel表格界面中,选择 开发工具—宏—宏,选“多表多文件合并为多表一文件”,然后“执行”。如果找不到“开发工具”,说明还没有设置显示出来。一般OFFICE默认不显示这个菜单项。设置显示“开发工具”可参考如下链接。

4、在打开的对话窗口中,选择需要合并的多个工作薄

5、等待Excel自动处理完成

Excel同工作簿多个工作表合并到一个工作表

看完了文章,你要不要分享一下:

小朱博客

View posts by 小朱博客
小朱个人博客,生活网络分享,外贸建站,谷歌seo操作分享,B2B优化排名操作分享,资源分享,软件分享,生活分享。https://www.zhudc.com/

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据

Scroll to top