欢迎来到短文学网,最全的爱情伤感短句,经典短句,及各类搞笑、个性唯美短句.欢迎收藏本站!
励志 | 爱情
返回首页您现在的位置: 首页 > 美文百科 > 一键合并,12个增值税发票的工作簿

一键合并,12个增值税发票的工作簿

作者: xiaobai 来源: 时间: 2023-09-30 14:54:47 阅读: 次

一键合并,12个增值税发票的工作簿

与 30万 读者一起学Excel

关于多表多工作簿合并,写了无数文章,不过刚好这种多工作簿合并方法没有提供模板。

学员的问题:在同一个文件夹内,有12个月份的增值税发票的工作簿,现在要将所有工作簿合并到汇总表。

原先的做法就是新建一个表格,复制粘贴内容,并重命名工作表名称;再新建一个表格,再复制粘贴内容,再重命名工作表名称……

重复以上操作12次,操作比较繁琐。有没更加便捷的方法,可以一次性搞定?

会计人,真的不是靠蛮干就可以,还需要有方法。

刚好,卢子私藏了一个模板,可以一键搞定这个问题,先来看看动画。点二维码运算代码,仅需几秒钟,喝口水的时间即可搞定。

只要是在同一个文件夹内的工作簿,不管多少个都可以合并,可以省去很多时间。

下载源文件,并将源文件放在你要合并的文件夹内,即可运行。

源文件:

https://pan.baidu.com/s/1UqRGU6FZvf1hZgeu2H3EFQ

源代码:

Sub 合并工作簿()

Dim Wb As Workbook, MyPath As String, File

Application.ScreenUpdating = False

Rem 关闭屏幕刷新

MyPath$ = ThisWorkbook.Path & ""

Rem 获取当前工作簿路径

File = Dir(MyPath & "*.xls*")

Rem 获取路径下所有Excel文件

Do While File <> "" '遍历所有文件

If File <> ThisWorkbook.Name Then '不合并当前工作簿

Set Wb = Workbooks.Open(MyPath & File)

Rem 依次打开工作簿

Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

Rem 将第一个表复制到当前工作簿的最后一个工作表

Wb.Close False '关闭工作簿 不保存

End If

File = Dir

Rem 循环下一个工作簿

Loop

Application.ScreenUpdating = False

Rem 打开屏幕刷

End Sub

推荐:多表多工作簿,合并拆分随心所欲

上篇:全年12个月最简单的统计方法

最近有不少人在玩这个测试,你最希望2019年发生的五件事是什么?

作者:卢子,清华畅销书作者,《Excel效率手册 早做完,不加班》系列丛书创始人,个人公众号:Excel不加班(ID:Excelbujiaban)

长按二维码,识别关注

请把「Excel不加班」推荐给你的朋友和同事

提示:如果您觉得本文不错,请点击分享给您的好友!谢谢
本文标题:一键合并,12个增值税发票的工作簿

提示:如果您觉得本文不错,请点击分享给您的好友!谢谢

相关阅读

文章列表

最新消息

欢迎收藏
我们的努力,只为得到你最好的认可,请认准我们的网址。
友情提示: 喜欢我们网站的人,请收藏我们网址,以便下次更快捷进入,了解更多精彩的文化。