百科
首页 > 办公软件 > Excel > 如何让多个单独excel表合并为多个sheet?

如何让多个单独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-合并工作表
6565人学过 难度:中级拔高

相关知识

最新知识

相关百科

最新百科

相关教程