如何让多个单独excel表合并为多个sheet?
作者:wanrong发布时间:2021年02月01日 16:46

  科技发展的时代,智能化占领工作的主要地位,作为职场中人,不管你从事什么职业,基本的办公软件都要涉及,数据的展示我们常用的是excel表格,但是excel表有时候需要多个表合并在一起使用,今天我们就给大家讲一下:如何让多个单独excel表合并为多个sheet?

  

  1.新建汇总excel。

  

  

  

  2.用excel打开工作表汇总,删除其余两个sheet,留下一个改名汇总(随意命名)。

  

  

  

  3.鼠标放在汇总sheet页,然后右键,点击查看代码(或者alt+F11--》工具栏选择视图--》代码窗口)

  

  

  

  4.将以下代码复制到弹出窗口(如果excel文件是.xls,则只需要修改代码中的文件后缀即可)

  

  Sub 工作薄间工作表合并()

  

  Dim FileOpen

  

  Dim X As Integer

  

  Application.ScreenUpdating = False

  

  FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", 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.工具栏点击工具--》宏--》选择工作薄间工作表合并--》运行

  

  

  

  6.弹出窗口选择要合并的excel文件,打开,等待合并。

  

  

  

  7.合并后的效果。

  

  

  

  小编把如何让多个单独excel表合并为多个sheet的方法和步骤已经教给了大家,这个操作有些复杂,需要大家课后认真去练习,学会了这个操作,多个excel表之间就可以建立联系,方便应用了。

  

  本篇文章使用以下硬件型号:联想小新Air15;系统版本:win10;软件版本:excel 2013。

点击观看视频教程
Excel Vba-合并工作表
中级拔高25460人已学视频时长:12:55
立即学习
特别声明:以上文章内容仅代表作者wanrong本人观点,不代表虎课网观点或立场。如有关于作品内容、版权或其它问题请与虎课网联系。
500+精品图书
20G学习素材
10000+实用笔刷
持续更新设计模板
立即领取

下载虎课APP

随时随地学技能
APP更方便
每天免费学课程
下载虎课网APP
随时随地学海量会员教程
特惠
充值
7折购
今日还在继续学习的你,太棒了!
7
折扣券可用于
年费无限VIP
立 即
使 用
此活动优惠不可与其他活动叠加使用
有效期:000000
消息
登录即可查看消息记录
建议
意见
官方
客服
在线咨询客服热线

您可以与在线客服进行沟通获得帮助

工作日:9:00~22:00节假日:9:00~18:00

联系在线客服

您可以电话联系客服进行沟通获得帮助

工作日:9:30~18:30

400-862-9191
虎课
积分
免费学习89000+个教程!
配套素材、源文件一键下载!
昨日学员已学习了46,688
并提交了341份作业!
登录后立即学习!
loading
微信扫码关注即可登录
您需要同意协议才可以进行登录
登录虎课网,每天免费学课程全站 89000+ 视频会员教程 | 每日可免费学 1
为确保账户信息安全
请先进行真实姓名验证后进行充值付款
立即验证