Excel批量合并工作簿+Excel批量合并工作表=早下班 / 四六文摘

自我提升也是一种修养

数万Excel爱好者聚集地

2021年1月16日周六

【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批量合并工作簿+Excel批量合并工作表=早下班

相关推荐