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

excel多个工作簿中数据汇总

发布网友 发布时间:2022-04-24 08:49

我来回答

2个回答

热心网友 时间:2022-05-02 19:18

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("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub

热心网友 时间:2022-05-02 20:36

表头都是一样的吗?
如果一样可以用power query来解决。追问谢谢,已经下安装了excel2016,内置了power query,还是不会操作,您能不能告诉下具体流程,万分感谢

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
小弟刚升到80级是法师 应该怎么弄装备啊 从哪里开始弄起 还有就是网上... 门上指纹锁要多少钱 手机百度如何搜索图片来源? 如何找出图片出处 win7电脑横屏如何处理笔记本电脑桌面变成横向了怎么办 win7电脑桌面反了怎么办电脑屏幕倒过来了怎么办 win7电脑变成竖屏快捷键我电脑变成竖屏了怎么调回来 win7系统电脑怎么横屏w7系统屏幕怎么横过来 win7系统更改电脑屏幕方向电脑屏幕旋转了怎么调整过来 调成竖屏模式电脑win7我电脑变成竖屏了怎么调回来 多个工作簿如何汇总成一个工作簿? excel中很多相同工作簿,求其中一个工作表同一位置的和, EXCEL中怎么求同一工作薄中不同表格同一单元格的和? 怎样求已打开的excel 工作薄中工作表个数 小薏米的花语是什么意思? EXCEL多个工作簿数据求和,将第一第二个工作簿相同位置的数据求和自动填入第三个工作簿。应用什么公式 我买大薏米好是小薏米好排湿 excel工作簿求和 求F列最后一个数值的和 求E列最后一个小于0的数值的和 小薏苡仁......... 大薏米与小薏米的疗效哪种好?大薏米小薏米怎样区分? WPS表格 工作簿表格 中计算如何求绝对值 excel中多个工作簿求和问题 Excel中工作簿自动求值问题 关于Excel工作簿单元格内求其他工作簿单元格和的问题。 大薏米营养好还是小薏米营养好? excel 工作簿同一位置求和 小薏米怎么煮 excel 多工作簿求和 如何用Excel求整个工作簿的平均值 注册资本大于实收资本 vivo27与vivo30有啥区别? vivo27手机接收信号差怎么办? vivo&#x2718;27手机有otg功能吗? vivo也27手机掉水里怎么处理 vivo27手机边是什么材质 vivo&#x2718;27支持OTG功能吗? vivo×27和vivov1是一样的吗? vivo27,计算器要这么调正常 如何求多个工作簿中相同工作表里的相同单元格的和 冰透感美甲一般适合于夏天,是因为清爽吗? 美甲透色和纯色的区别 透明色美甲哪种好 华为nova78+256价格 华为手机一般质保一年,一年之后坏了怎么办? 华为手机还在保修期间,但是自己拆了修了之后还可以拿去售后中心吗... 如何进行地理高考第二轮复习 如何用好初中地理教学中的“图示”法 高考地理复习:如何复习效率高 求高考地理一轮复习的完整方法一套 中考地理该怎么复习