2020-06-03
阅读量:
668
如何批量把多个工作簿里的工作表整合到一个工作簿中？
在日常工作中，我们往往需要将多个工作簿合并到一个工作簿中，数据少的情况下，我们可以直接复制粘贴，数据多的情况下呢？如果一个工作簿中含有多个工作表呢？我们又该怎么操作呢？可以使用vba宏的方法让Excel批量操作
合并步骤：
1. 将需要合并的工作簿全部放在同一个文件夹下面；
2. 新建一个工作簿，如merge，其他工作簿将被合并到这个工作簿中。
3. 再打开merge, 鼠标放在sheet1，右键-查看代码，然后复制粘贴以下代码，然后点击运行
GetSheets()
Path = "D:\excel_workbook\"
Filename = Dir(Path & "test*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
最后的结果：
这样就合并成功了
注意：
在上面的代码里，需要将目录路径更换成自己使用的路径
14.6116
1
4
关注作者
收藏
评论(0)
发表评论
暂无数据
推荐帖子
CDA持证人阿涛哥
2024-10-26
0条评论
CDA持证人阿涛哥
2024-07-26
1条评论
CDA持证人阿涛哥
2024-04-26
1条评论