怎么把多个表格合并到一个表格里（怎么把多个表格合并到一个表格）
关于怎么把多个表格合并到一个表格里，怎么把多个表格合并到一个表格这个很多人还不知道，今天菲菲来为大家解答以上的问题，现在让我们一起来看看吧！
1、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 = ***.Open(MyPath &""& MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox"共合并了"& Num &"个工作薄下的全部工作表。
2、如下："& Chr(13) & WbN, vbInformation,"提示"End Sub。
本文到此分享完毕，希望对大家有所帮助。
- 1bat的大数据（BAT的大数据来源）
- 2三星s8屏幕上端2（三星s8屏幕上端2个按键）
- 3三星屏幕坏了如何导出（三星屏幕摔坏了如何导出数据么）
- 4红米3x怎么关闭自动更新（红米k40s怎么关闭自动更新）
- 5微信上防止app自动下载软件怎么办（微信上防止app自动下载软件怎么办啊）
- 6押镖多少钱（押镖一个月有多少储备金）
- 7瑞星个人防火墙胡功能（瑞星个人防火墙协议类型有哪些）
- 8cf现在等级是多少（cf等级2020最新）
- 9老滑头多少条鱼（钓鱼老滑头有什么用）
- 10WPS自动调整语法（wps如何修改语法）
- 11dell控制面板防火墙（dell的防火墙怎么关闭）
- 12丑女技能升多少（丑女技能需要满级吗）
- 13智能家居系统怎么样（智能家居系统好吗）
- 14戴尔屏幕（戴尔屏幕闪烁）
- 15y85屏幕信息（vivoy85息屏显示时间怎么设置）
- 16魅蓝note3屏幕出现方格（魅蓝note屏幕竖条纹）
- 17v8手指按屏幕（触屏手指）
- 18金为液晶广告机（液晶广告机lb420）
- 19三星显示器怎么校色（三星显示器 调色）
- 20hkc显示器dvi音频（hkc显示器有音响么）
- 21康佳液晶智能电视机（康佳液晶智能电视机怎么样）
- 22做液晶画板电脑（做液晶画板电脑怎么操作）
- 23液晶屏极化现象原理（液晶屏极化现象原理是什么）
- 24企业网络安全防火墙（企业网络防护）
- 256splus黑屏屏幕不亮（苹果6s plus屏幕突然黑屏）
- 26充电导致屏幕失灵（充电导致屏幕失灵怎么办）
- 27超极本屏幕旋转（笔记本电脑屏幕旋转,怎么转过来?）
- 28igmp防火墙（防火墙配置ipv6）
- 29荣耀王者多少经验（王者荣耀经验多少一级）
- 30lol老将还剩多少（qg老将）