如何将100个EXCEL工作簿合并成一个EXCEL工作簿含有100sheet表格

蓝背狐

收藏于 : 2019-11-15 14:31   被转藏 : 1   

将多个EXCEL工作簿合并成一个EXCEL工作簿含有有多个sheet表格。比如:我们要将表名分别为1.2.3的三个报表合并到汇总这个工作簿,里面含有1.2.3三个sheet表格。

1、新建一个工作薄,将其命名为你合并后的名字,比如表名为“汇总”。

2、打开此工作薄。

3、在其下任一个工作表标签上点击右键,选择“查看代码”。(wps的该按钮在开发工具下)

4、在打开的VBA编辑窗口中粘贴以下代码:

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

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

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

X = 1

While X <=>

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、关闭VBA编辑窗口。

6、在excel中,工具---宏---宏,选“工作薄间工作表合并”,然后“执行”,执行的时候会让你选择这1

7、在打开的对话窗口中,选择你需要合并的工作表,如果多的话,可以放在一个文件夹,然后全选。

8、等待。。。。ok!

然后我们就得到了汇总这个报表里含有三个sheet表格,这样再参照昨天文章“如何将一个EXCEL工作簿里100个sheet数据合并”,就可以将1.2.3个报表的数据再次进行合并。大家是不是觉得挺有用,那就关注下office达人小懿!!!特别是对于成千上万行的数据和几百个报表,分分钟搞定!

 阅读文章全部内容  
点击查看
文章点评
相关文章
蓝背狐 关注

文章收藏:5127

TA的最新收藏