• 欢迎访问小朱博客,博主主要从事阿里巴巴国际站运营,WordPress建站,电子商务。如果你也是从事阿里巴巴国际站运营工作,欢迎加入阿里巴巴国际站SEO QQ群
  • 本站所有内容都是我在工作中所遇到的问题,通过搜索引擎查到资料,有自己原创经验分享,有收集来的,记录并分享,方便自己以后查阅。
  • 主要:建站资料,网络推广,服务器,软件分享,办公软件操作,阿里巴巴国际站,国外社交平台,各类工具等等。
  • 好记性不如烂笔头。
  • 如果您觉得本站非常有看点,那么赶紧使用 Ctrl+D 收藏 小朱博客 吧!

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

Excel技巧 小朱博客 5个月前 (11-21) 47次浏览 0个评论

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

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

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

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

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

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

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

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

关闭VBA编辑窗口

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

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

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

5、等待Excel自动处理完成

https://www.zhudc.com/excel/1764


欢迎浏览小朱博客 , 由小朱发表的:Excel多个工作簿合并到一个工作簿中
转载请注明原文链接:https://www.zhudc.com/excel/1948
喜欢 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址