如何合并多个excel的统计表格文件到1个文件当中

如何合并多个excel的统计表格文件到1个文件当中如何合并多个excel的统计表格文件到1个文件当中新建一个工作表，命名后保存到和欲合并的几个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As St...

如何合并多个excel的统计表格文件到1个文件当中新建一个工作表，命名后保存到和欲合并的几个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 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 If Num = 1 Then For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next Else For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Offset(1, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next End If 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

                    本文档为【如何合并多个excel的统计表格文件到1个文件当中】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_219945

暂无简介~

格式：doc

大小：13KB

软件：Word

页数：2

分类：互联网

上传时间：2017-09-19

浏览量：34

热点搜索

【最新】八年级上册生物、地理复习提纲五金车间工作职责经营生命微心愿活动,领导讲话稿 FX2N-14MT接线图广告公司文员主要工作内容岐山中小学暑期放假时间2020 增值税申报表填写错误情况说明宋兵兵个人简历金属与石材幕墙工程技术规范JGJ 工作日志表格书法家访谈录魏启后谈艺录医院项目部分包单位部编版小学二年级语文非纸笔测试方案及试卷【最新】八年级上册生物、地理复习提纲五金车间工作职责经营生命微心愿活动,领导讲话稿 FX2N-14MT接线图广告公司文员主要工作内容岐山中小学暑期放假时间2020 增值税申报表填写错误情况说明宋兵兵个人简历金属与石材幕墙工程技术规范JGJ 工作日志表格书法家访谈录魏启后谈艺录医院项目部分包单位部编版小学二年级语文非纸笔测试方案及试卷