时间:2020-10-28 21:10作者:admin来源:未知人气:488我要评论(0)
快速把excel合并在一起,方便分析和统计可以利用excel表的宏计算就可以实现。方法如下:
1、我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。如图所示:
2、用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示:
3、然后我们把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,如图所示:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
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 |
4、运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。
5、查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
相关阅读 Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法Excel数字乱码怎么办?这样处理1秒解决,完美!Excel办公小技巧,全学会了让你的效率一秒提升!如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法,最后一种效率最高excel如何将阿拉伯数字快速转换为中文大小写格式?excel如何利用公式快速在表格中批量输入五角星的方法如何利用Excel的强大抠图功能,简单2步抠出透明手写艺术签名!分享Excel中的一个神操作,掌握后可快速提高工作效率!
热门文章 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表(Pivot Table)
最新文章
Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法
Excel数字乱码怎么办?这样处理1秒解决,完美!Excel办公小技巧,全学会了让你的效率一秒提升!如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法,最后一种效率最高
人气排行 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表(Pivot Table)Excel中如何插入PDF文件Excel表格在一页A4纸上打印不下去,怎么办?excel保存了却不见了怎么办excel如何将两列数据一一对应
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>