网站首页 高端访谈 > 正文
今天小风给大家收集了一些Excel怎么把多个表格合并，怎样将多个表格进行excel合并方面的信息来分享给大家，如果大家感兴趣的话就接着看下面得文章吧
如果多个excel需要合并在一起，一个一个合并太麻烦，下面就交给大家一个快速方法方法
1、首先需要把所有需要合并的excel文件放到一个文件夹中，并且新建一个空白的excel文件。
2、然后打开这个新建的excel文件，右键点击sheet1、选择查看代码。
3、然后会出现如下的界面。
4、然后把如下代码复制粘贴到代码栏。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 + 1、With Workbooks(1、).ActiveSheet.Cells(.Range("B6、5、5、3、6、").End(xlUp).Row + 2、, 1、) = Left(MyName, Len(MyName) - 4、)For G = 1、 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B6、5、5、3、6、").End(xlUp).Row + 1、, 1、)NextWbN = WbN & Chr(1、3、) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1、").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(1、3、) & WbN, vbInformation, "提示"End Sub
5、接下来就是运行代码，点击运行→运行子过程/用户窗体。
6、合并成功！
本文到此结束，希望对大家有所帮助。
版权说明： 本文由用户上传，如有侵权请联系删除！
猜你喜欢：
- 2022-09-20 英语一般疑问句的结构类型（英语一般疑问句的结构）
- 2022-09-20 巴斯光年出自哪里（巴斯光年什么梗）
- 2022-09-20 自来也到底死了没有（自来也后来死了吗）
- 2022-09-20 看钟表口诀（认钟表口诀）
- 2022-09-20 江西现代职业技术学院千万别来（江西现代职业技术学院好不好）
- 2022-09-20 什么叫啫喱牙膏（什么叫啫喱）
- 2022-09-20 三个龙念什么繁体字（三个龙念什么）
- 2022-09-20 台湾的气候特点是什么(简短)二年级（台湾的气候特点是什么）
最新文章：
- 2023-07-01 家庭养猫什么颜色的风水比较好（养猫颜色有什么讲究 养猫颜色有哪些讲究）
- 2023-07-01 抽真空的腊牛肉存放要冷冻还是冷藏（抽真空的腊牛肉能保存多久）
- 2023-07-01 卫生间换气扇套什么定额子目（怎样选择卫生间换气扇）
- 2023-07-01 100平米水地暖一个月燃气费（100平米地暖一个月燃气费多少）
- 2023-07-01 评估行业的现状和前景（房地产评估行业前景如何）
- 2023-07-01 是养猫咪好还是养狗狗好?（如何选择养猫还是养狗）
- 2023-07-01 榆木和桐木家具的优缺点（桐木家具的优缺点）
- 2023-07-01 2023契税最新政策（商品房交房时需要交哪些费用）
- 2023-07-01 正山小种一包多少克（正山小种一包全泡吗）
- 2023-07-01 康砖茶的功效与作用（康砖茶是什么茶）
- 2023-07-01 收音机音乐台是哪个台（收音机音乐电台是哪个频道）
- 2023-07-01 营业执照怎么注销个体户（营业执照怎么注销）
- 2023-07-01 餐饮许可证办理流程图（小餐饮许可证办理流程）
- 2023-07-01 养小泰迪的方法（养小泰迪的注意事项）
- 2023-07-01 卧室衣柜用什么板材好（卧室衣柜如何选购）
- 2023-07-01 海底捞生日快乐歌叫什么名字（海底捞生日快乐歌叫什么）