问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

Excel宏如何将多个单独的EXCEL表格汇总到在一个表格中?

发布网友 发布时间:2022-04-22 23:34

我来回答

1个回答

热心网友 时间:2023-09-25 13:41

使用前你需要把excel宏文件放到需要合并的文件夹中
备注:合并的excel文件包括 .xls 和.xlsx
直接上代码:
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls*")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
求助:补全成语. _然而止、_然不屈、_然四顾、_然若失、_然而至、_然拒绝、_然无声... 我姑妈(姑妈去世),现奶奶的房产 姑妈的女儿有继承权吗? 丈夫去世遗产应该能怎么分配 《人世间》骆士宾遗产股权归谁所有 为什么说曹珊不应该得罪水自流_百 ... 有谁知我国十大元帅及十大上将? 解放中国的10大元帅是那几个? 对中国有何影响? 中国历史上的十大元帅 为什么中国过去有元帅现在没有了 ...想看中国80年代、90年代热播的电视剧,《渴望》、《蛙女》等,越多... Excel 宏如何合并? 做吐司面包有什么技巧 制作拉丝绵密的吐司面包,正确的步骤是什么? 吐司为什么按别人得方子用吐司盒做不出来吐司形状(总没有那么高) 为什么我的吐司面包烤出来组织粗糙,而且晾凉后吃起来发酸发粘!求高 请教一下牛奶吐司的常见做法? 吐司面包脱模困难如何解决? 烤吐司中间容易出现大空洞是什么原因 为啥吐司盒两侧的面包站不起来? 面包店,为什么烤的面包粘底? 怎么让吐司内部组织更细腻? 如何把转让给别人,里面的联系人保留给另一个? 卖自己违法吗 我的卖给别人,但他没有给我钱,我能申诉回来吗? 怎么过户姓名 怎么转让给别的手机? 过户后原先的好友还存在吗 转让风险如何? 能不能转给别人 如何把转让给别人,里面的联系人保留给另一个? excel宏 多个宏合并成一个宏 如何利用excel宏计算合并单个excel表中的多个sheet工作页 excel文件合并宏命令! 怎么将用EXCEL宏将多个工作表合并到一个工作薄中 excel多张表格合并 宏 合并EXCEL宏 求excel中合并单元格的宏 excel宏命令合并两表 如下所示: 求excel宏,功能实现同一文件夹下多个工作簿内容合并 Excel宏语言合并表格! 在EXCEL中用宏合并同类项,并数量相加? 编写EXCEL宏程序 实现 相同数据合并 如何用宏合并多个Excel中的sheet,到一个Excel的sheet1 2015年版的小米智能插座连不上手机? 温州玻璃砖哪里买? 西安哪里有卖玻璃砖 哪里有卖玻璃砖的? 齐齐哈尔哪有卖玻璃砖 哪里有卖实心玻璃砖的? 贵阳哪里有卖玻璃砖?多少钱一平?包工包料又是多少钱一平?