又到年底了，不要再为合并Excel工作表和工作簿数据发愁了！ / 开普饭

Excel情报局

OFFICE爱好者大本营

用1%的Excel基础搞定99%的职场工作

做一个有价值感的Excel公众号

Excel是门手艺玩转需要勇气

每天带你玩转Excel

有温度的公众号

自我提升也是一种修养数万Excel爱好者聚集地

2021年1月6日周三

【Excel情报局｜文案回收铺子】

这才是我

我本身就是一个不喜欢主动的人

虽然灵魂有趣

但不喜欢表达

死倔，也慢热

遇到懂我的人是幸运

遇不到也是正常了

沉默，喜欢独处，三观正

比你想象的深情

也比你以为的冷漠

又到年底了，是不是又要合并全年几百个甚至上千个Excel工作表或者Excel工作簿中的数据了，这个对于财务工作者来说是一个永久的话题，今天Excel情报局的小编就为大家整理好了快速合并Excel工作表和Excel工作簿的方法！

快速合并同一Excel工作簿下的所有工作表数据

视频完整演示：

(建议手机WIFI下观看)

参考代码如下：

Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "OK啦！", vbInformation, "提示"End Sub

快速合并多个Excel工作簿中所有工作表数据

视频完整演示：

(建议手机WIFI下观看)

参考代码如下：

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

Excel操作技巧精华视频190讲

免费打包下载方式

本公众号后台聊天窗口

回复关键字

“视频190讲”

获取下载地址链接及提取码

阅读完文章之后，希望大家在文末帮我点亮“在看”按钮，坚持的路上需要有你们的鼓励

如何在【Excel情报局】微信公众号内通过输入关键字搜索历史文章？

常识普及：

①第1步：进入【Excel情报局】微信公众号，点击底部菜单“情报.xls”

②第2步：点击“历史文章”按钮

③第3步：顶部搜索框内输入你要搜索的关键字，比如“合并”，点击确定，进行搜索。参照下面视频操作：

相互尊重，抱团成长。

Excel2016版安装包(含永久激活工具) 百度网盘

下载链接：
https://pan.baidu.com/s/11eE-oGEyHojXHoYSuDbBAA

又到年底了，不要再为合并Excel工作表和工作簿数据发愁了！

相关推荐