excel多表如何合并到一张表格
发布时间：2022-08-26 21:28:26
快速把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 |
0
投稿猜你喜欢
截屏是使用比较频繁的操作，在浏览网页遇到有用的内容或者聊天时想要截下一段话都需要使用到截屏，对电脑了解一点的朋友可能会打开QQ之类的第三方软- word批量转图片工具”是常用的将doc, docx文件转成图片的软件，可以转成png, jpg等多种格式，而且图片尺寸较大，经过研究，我发
- 在Exce工作表中，经常会遇到数据区域中存在空白单元格的情况。在对这样的工作表进行编辑处理时，有时需要将包含这种空白单元格的行删除掉。对于包
- 左上角的office按钮，打开excel选项，第一个常用，右边首选项下面有一个“在功能区显示开发工具选项卡”，打钩，确定，就可以了。然后回来
- office365有各种不同的版本，包含了个人版和家庭版、商业版、企业版、教育版。顾名思义，商业版和企业版面向的是商业企业用户，价格最贵，但
- 在word中使用自动图文集可以快速插入文字、图形等对象，而且可以反复多次使用。很多朋友都还没有使用过word的自动图文集功能，今天我们分为3
- 今天小编为大家分享excel将上一列的内容填充至下一列空白值的方法，相信对于很多朋友都不是很清楚，下面小编就为大家详细介绍一下，一起来看看吧
- 现在很多用户不管是办公还是生活，都是使用Win10操作系统，然而我们知道Win的版本很多，很多朋友都不知道该如何选择了，下面我们就一起来看看
- 在使用样式过程中，有时需要对已应用相同样式的段落格式进行修改，此时便可通过修改样式来达到在word中批量修改样式的目的。如将“标题2”样式的
- Word线条怎么画？在我们平常使用Word文档编辑文字时，有时候会由于一些特殊情况，需要在文档内输入线条，那么应该如何操作呢？下面小编将以W
- excel2016怎么使用IF函数判断数据是否符合条件？excel2016表格中想要知道数据是否符合条件，该怎么判断呢？下面我们就来看看使用
- ABBYY FineReader12文档页码怎么重新编号？ABBYY FineReader12想要给文档重新排序，该怎么重新编码呢？下面我们
- 今天跟大家分享在Excel 2021工作表中的金额数字如何以小数点为参照标准快速对齐。应用案例将下图工作表B列中的金额数字以小数点为参照标准
- 斜表头的做法：方法一： 做法;1、选中单元格,点格式,单元格,边框,先选中细实线型(见图二),再点斜线(见图三),
- 上周，苹果在经过修复之后给大家推送了iOS16 beta2。虽然已是iOS16的第二个版本，但网友们还是在观望，不敢轻易尝试，大概率是被iO
- 如何给word文档加入背景图片，如何将设置有背景图片的word文档去掉背景图片，下面我们一步步来操作这个过程，接下来小编给大家分享下word
- 我们在编辑Word文档的时候通常会用到分隔符，分隔符包括分页符、分栏符以及分节符等，通过在文字中插入分隔符，可以把将Word文档分成多个部分
- 在iOS 16以及更新版本中，苹果将全系统翻译扩展到了相机应用程序。也就是说，已经更新到iOS 16系统的用户使用 iPhone 相机即可实
- Excel保存文件时如何添加密码？当我们使用Excel办公时，需要保存重要的文件，其实可以给文件添加密码，下面小编就来教大家如何如添加密码E
- Word是我们平常很常用的办公软件，我想，你一定经历过这样的事情：1、快下班了，电脑突然死机，今天做的Word文档忘记保存了。2、上学上课的
