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
(0)

相关推荐