如何把多个“多个工作簿sheet汇总”中的“SHEET1”合并到一个“SHEET”

来源：蜘蛛抓取(WebSpider) 时间：2016-12-04 14:49 标签： sheet1 sheet2 合并
文档处理（1）
把所需合并的Excel文档放在同一个文件夹中,再文件夹中新建一个Excel打开Excel，按ALT+F11，或
依次点工具，宏，VB编辑器，双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。
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
Do While MyName && &&
&&& If MyName && AWbName Then
&&&&&&& Set Wb = Workbooks.Open(MyPath & &\& & MyName)
&&&&&&& Num = Num + 1
&&&&&&& With Workbooks(1).ActiveSheet
&&&&&&&&&&& .Cells(.Range(&A65536&).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
&&&&&&&&&&& For G = 1 To Wb.Sheets.Count
&&&&&&&&&&& Wb.Sheets(G).UsedRange.Copy .Cells(.Range(&A65536&).End(xlUp).Row + 1, 1)
&&&&&&&&&&& Next
&&&&&&&&&&& WbN = WbN & Chr(13) & Wb.Name
&&&&&&&&&&& Wb.Close False
&&&&&&& End With
&&& End If
&&& MyName = Dir
Range(&A1&).Select
Application.ScreenUpdating = True
MsgBox &共合并了& & Num & &个工作薄下的全部工作表。如下：& & Chr(13) & WbN, vbInformation, &提示&
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：4408次
排名：千里之外
(1)(1)(1)(2)）+P3（M3）+......一直这样
到最后按回车就OK了
您的举报已经提交成功，我们将尽快处理，谢谢！
这么操作：
在sheet5的A1，输入“=SUM（）”，将光标放在括弧里，打开sheet1,按住shift键点sheet4,即同时打开4张工作表，点击4表中任...
在excel中，一个工作簿有多个工作表组成。
可打开查找（Ctrl+F）对话框，点“选项”，在“查找范围”选“工作簿”，查找内容输入你要找工作表的名称即可...
操作说明：
1、将《表2》姓名粘贴到《表1》A列(如《表1-1》粉红区域所示)；选中A1:A5,在A上邻“名称框”输入任意名称如“名字”，回车，即将该区域定义...
1、点“插入/工作表”，新表就插到打开工作表的前面，左键摁住工作表标签可任意移动工作表位置。
2、如果想在每个空工作簿默认若干（如12张）表，点“工具/自定义...
大家还关注Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 769|回复: 5
如何把多个“工作簿”中的“SHEET1”合并到一个“SHEET”？
阅读权限10
在线时间 小时
老板给了几千个表，让规整数据
本人要疯了。。。麻烦各位指教！不胜感激！
阅读权限10
在线时间 小时
补充：是EXCEL2007
阅读权限10
在线时间 小时
如何把多个“工作簿”中的“SHEET1”合并到一个“SHEET”？
多个“工作簿”中很有很“SHEET”，我只要将多个“工作簿”中“SHEET1”就可以了，把这些“SHEET1”全部复制到一个“工作簿”中的一个“SHEET“就可以了！
老板给了几千个表，让规整数据本人要疯了。。。麻烦各位指教！不胜感激！
阅读权限95
在线时间 小时
这么庞大的数据，Excel有时候也会力不从心的，建议楼主使用数据库
阅读权限30
在线时间 小时
ballajin 发表于
如何把多个“工作簿”中的“SHEET1”合并到一个“SHEET”？
多个“工作簿”中很有很“SHEET”，我只要将多 ...
建议LZ在论坛搜一搜工作簿合并的贴子
阅读权限150
在线时间 小时
建议楼主压缩上传问题附件
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师(icelolly)
(weizuo139581)
第三方登录：

我要回帖

更多关于 sheet1 sheet2 合并 的文章

 

随机推荐