科技发展的时代,智能化占领工作的主要地位,作为职场中人,不管你从事什么职业,基本的办公软件都要涉及,数据的展示我们常用的是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。